home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / xymtex / hetarom.sty < prev    next >
Text File  |  1994-07-10  |  116KB  |  3,649 lines
  1. % hetarom.sty
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00}
  4. \typeout{       -- Released December 1, 1993 by Shinsaku Fujita}
  5. \typeout{}
  6. \typeout{}
  7. % Copyright (C) 1993 by Shinsaku Fujita, all rights reserved.
  8. %
  9. % This file is a part of the macro package ``XyMTeX'' which has been 
  10. % designed for typesetting chemical structural formulas.
  11. %
  12. % This file is to be contained in the ``xymtex'' directory which is 
  13. % an input directory for TeX. It is a LaTeX optional style file and 
  14. % should be used only within LaTeX, because several macros of the file 
  15. % are based on LaTeX commands. 
  16. %
  17. % For the review of XyMTeX, see
  18. %  (1)  Shinsaku Fujita, ``Typesetting structural formulas with the text
  19. %    formatter TeX/LaTeX'', Computers and Chemistry, in press.    
  20. % The following book deals with an application of TeX/LaTeX to 
  21. % preparation of manuscripts of chemical fields:
  22. %  (2)  Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' 
  23. %    Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese].  
  24. %
  25. % Copying of this file is authorized only if either
  26. %  (1) you make absolutely no changes to your copy, including name and 
  27. %     directory name; or
  28. %  (2) if you do make changes, 
  29. %     (a) you name it something other than the names included in the 
  30. %         ``xymtex'' directory and 
  31. %     (b) you are requested to leave this notice intact.
  32. % This restriction ensures that all standard styles are identical.
  33. %
  34. % Please report any bugs, comments, suggestions, etc. to:
  35. %   Shinsaku Fujita, 
  36. %   Ashigara Research Laboratories, Fuji Photo Film Co., Ltd., 
  37. %   Minami-Ashigara, Kanagawa-ken, 250-01, Japan.
  38. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  39. \def\j@urnalname{hetarom}
  40. \def\versi@ndate{December 01, 1993}
  41. \def\versi@nno{ver1.00}
  42. \def\copyrighth@lder{SF} % Shinsaku Fujita
  43. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  44. %\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>\space%
  45. % [\copyrighth@lder]}
  46. %
  47. % *********************************
  48. % * hetarom.sty: list of commands *
  49. % *********************************
  50. %
  51. % <Various flags (switches)>
  52. %
  53. %     \if@gclip \@gclipfalse \@gcliptrue
  54. %     \if@hclip \@hclipfalse \@hcliptrue
  55. %     \if@iclip \@iclipfalse \@icliptrue
  56. %     \if@jclip \@jclipfalse \@jcliptrue
  57. %     \iniflag
  58. %     \iniatom
  59. %     \aaa
  60. %     \bbb
  61. %     \ccc
  62. %     \ddd
  63. %     \eee
  64. %     \fff
  65. %     \ggg
  66. %     \hhh
  67. %     \iii
  68. %     \jjj
  69. %
  70. %  <Six-Membered Heterocycles>
  71. %    Setting inner double bonds
  72. %
  73. %     \bonda
  74. %     \bondb
  75. %     \bondc
  76. %     \bondd
  77. %     \bonde
  78. %     \bondf
  79. %     \bondhoriz
  80. %     \bondhorizi
  81. %
  82. %    Setting skeletal bonds
  83. %
  84. %     \skbonda
  85. %     \skbondf
  86. %     \skbondc
  87. %     \skbondd
  88. %     \skbondb
  89. %     \skbonde
  90. %     \skbondhoriz
  91. %     \skbondhorizi
  92. %
  93. %    Basic Macros
  94. %
  95. %     \sixheterov               \@sixheterov
  96. %     \sixheterovi              \@sixheterovi
  97. %
  98. %    Application Macros
  99. %
  100. %     \pyridinev                \@pyridinev
  101. %     \pyridinevi               \@pyridinevi
  102. %     \pyrazinev                \@pyrazinev
  103. %     \pyrimidinev              \@pyrimidinev
  104. %     \pyrimidinevi             \@pyrimidinevi
  105. %     \pyridazinev              \@pyridazinev
  106. %     \pyridazinevi             \@pyridazinevi
  107. %     \triazinev                \@triazinev
  108. %     \triazinevi               \@triazinevi
  109. %
  110. %  <Five-Membered Heterocycles>
  111. %    Basic Macros
  112. %
  113. %     \fiveheterov              \@fiveheterov
  114. %     \fiveheterovi             \@fiveheterovi
  115. %
  116. %    Application Macros
  117. %
  118. %     \pyrrolev                 \@pyrrolev
  119. %     \pyrazolev                \@pyrazolev
  120. %     \imidazolev               \@imidazolev
  121. %     \isoxazolev               \@isoxazolev
  122. %     \oxazolev                 \@oxazolev
  123. %     \pyrrolevi                \@pyrrolevi
  124. %     \pyrazolevi               \@pyrazolevi
  125. %     \imidazolevi              \@imidazolevi
  126. %     \isoxazolevi              \@isoxazolevi
  127. %     \oxazolevi                \@oxazolevi
  128. %
  129. %  <Six-Six-Fused Heterocycles>
  130. %    Basic Macros
  131. %
  132. %     \decaheterov              \@decaheterov
  133. %     \decaheterovi             \@decaheterovi
  134. %
  135. %    Application Macros
  136. %
  137. %     \quinolinev               \@quinolinev
  138. %     \quinolinevi              \@quinolinevi
  139. %     \isoquinolinev            \@isoquinolinev
  140. %     \isoquinolinevi           \@isoquinolinevi
  141. %     \quinoxalinev             \@quinoxalinev
  142. %     \quinazolinev             \@quinazolinev
  143. %     \quinazolinevi            \@quinazolinevi
  144. %     \cinnolinev               \@cinnolinev
  145. %     \cinnolinevi              \@cinnolinevi
  146. %     \pteridinev               \@pteridinev
  147. %     \pteridinevi              \@pteridinevi
  148. %
  149. %  <Six-Five-Fused Heterocycles>
  150. %    Basic Macros
  151. %
  152. %     \nonaheterov              \@nonaheterov
  153. %     \nonaheterovi             \@nonaheterovi
  154. %
  155. %    Application Macros
  156. %
  157. %     \purinev                  \@purinev
  158. %     \purinevi                 \@purinevi
  159. %     \indolev                  \@indolev
  160. %     \indolevi                 \@indolevi
  161. %     \indolizinev              \@indolizinev
  162. %     \indolizinevi             \@indolizinevi
  163. %     \isoindolev               \@isoindolev
  164. %     \isoindolevi              \@isoindolevi
  165. %     \benzofuranev             \@benzofuranev
  166. %     \benzofuranevi            \@benzofuranevi
  167. %     \isobenzofuranev          \@isobenzofuranev
  168. %     \isobenzofuranevi         \@isobenzofuranevi
  169. %     \benzoxazolev             \@benzoxazolev
  170. %     \benzoxazolevi            \@benzoxazolevi
  171. %
  172. %  <Four-Membered Heterocycles>
  173. %    Setting bonds
  174. %     \bondshoriz               \bondshorizi
  175. %     \skbondshoriz             \skbondshorizi
  176. %
  177. %    Basic Macros
  178. %
  179. %     \fourhetero               \@fourhetero
  180. %
  181. %  <Four-Membered Heterocycles>
  182. %    Setting inner double bonds
  183. %
  184. %     \bondtria                 \bondtrib
  185. %     \skbondtria               \skbondtrib
  186. %
  187. %    Basic Macros
  188. %
  189. %     \threehetero              \@threehetero
  190. %
  191. %  <Building Units>
  192. %
  193. %     \sixunitv                 \@sixunitv
  194. %     \fiveunitv                \@fiveunitv
  195. %     \fiveunitvi               \@fiveunitvi
  196. %
  197. % *************************
  198. % * input of basic macros *
  199. % *************************
  200. \@ifundefined{setsixringv}{\input chemstr.sty\relax}{}%
  201. \unitlength=0.1pt%
  202. %% ****************************
  203. %% * various flags (switches) *
  204. %% ****************************
  205. %\newif\if@gclip \@gclipfalse%
  206. %\newif\if@hclip \@hclipfalse%
  207. %\newif\if@iclip \@iclipfalse%
  208. %\newif\if@jclip \@jclipfalse%
  209. %\def\iniflag{%
  210. %\@aclipfalse \@bclipfalse\@cclipfalse\@clipfalse\@eclipfalse%
  211. %\@fclipfalse\@gclipfalse\@hclipfalse\@iclipfalse\@jclipfalse%
  212. %\@clipfusefalse}%
  213. %\def\iniatom{%
  214. %\def\aaa{}\def\bbb{}\def\ccc{}\def\ddd{}\def\eee{}\def\fff{}%
  215. %\def\ggg{}\def\hhh{}\def\iii{}\def\jjj{}%
  216. %\def\@aaa{}\def\@bbb{}\def\@ccc{}\def\@ddd{}\def\@eee{}\def\@fff{}%
  217. %}%
  218. %\def\resetbdsw{\gdef\@aaa{a}\gdef\@bbb{b}\gdef\@ccc{c}%
  219. %\gdef\@ddd{d}\gdef\@eee{e}\gdef\@fff{f}}%
  220. %
  221. \iniatom%
  222. % ******************************
  223. % * setting inner double bonds *
  224. % ******************************
  225. % These macros are used in \sixhetero and \fivehetero for setting 
  226. % inner double bonds in accordance with the presence or the absence of 
  227. % hetero atoms. The following numbering is adopted in this macro. 
  228. %                   aaa
  229. %                    1
  230. %                  f * a
  231. %           fff 6  *   *  2 bbb
  232. %             e   |     |   b
  233. %                 |     |
  234. %           eee 5  *   *  3 ccc
  235. %                 d  *  c
  236. %                    4 <===== the original point
  237. %                   ddd
  238. % bond between 1 and 2
  239. \def\bonda{%
  240.   \ifx\aaa\empty%
  241.    \ifx\bbb\empty%
  242.     \put(6,364){\line(5,-3){126}}%         %double bond 1-2
  243.    \else%
  244.     \put(6,364){\line(5,-3){100}}%         %double bond 1-2
  245.    \fi%
  246.   \else%
  247.    \ifx\bbb\empty%
  248.     \put(35,340){\line(5,-3){100}}%        %double bond 1-2
  249.    \else%
  250.     \put(35,352){\line(5,-3){100}}%        %double bond 1-2
  251.    \fi%                                    % line <1OO not available
  252.   \fi%
  253.  }%
  254. % bond between 3 and 2
  255.  \def\bondb{%
  256.   \ifx\bbb\empty%
  257.    \ifx\ccc\empty%
  258.     \put(138,129){\line(0,1){148}}%        %double bond 3-2
  259.    \else%
  260.     \put(138,143){\line(0,1){134}}%        %double bond 3-2
  261.    \fi%
  262.   \else%
  263.    \ifx\ccc\empty%
  264.     \put(138,129){\line(0,1){134}}%        %double bond 3-2
  265.    \else%
  266.     \put(138,143){\line(0,1){110}}%        %double bond 3-2
  267.    \fi%
  268.   \fi%
  269. }%
  270. % bond between 4 and 3
  271.  \def\bondc{%
  272.   \ifx\ddd\empty%
  273.    \ifx\ccc\empty%
  274.     \put(6,42){\line(5,3){126}}           %double bond 4-3
  275.    \else% 
  276.     \put(6,42){\line(5,3){100}}           %double bond 4-3
  277.    \fi%
  278.   \else%
  279.    \ifx\ccc\empty%
  280.     \put(35,66){\line(5,3){100}}%          %double bond 4-3
  281.    \else% 
  282.     \put(35,60){\line(5,3){100}}%          %double bond 4-3
  283.    \fi%                                    % line <1OO not available
  284.   \fi%
  285. }%
  286. % bond between 4 and 5
  287.  \def\bondd{%
  288.   \ifx\ddd\empty%
  289.    \ifx\eee\empty%
  290.     \put(-6,42){\line(-5,3){126}}%         %double bond 4-5
  291.    \else% 
  292.     \put(-6,42){\line(-5,3){100}}%         %double bond 4-5
  293.    \fi%
  294.   \else%
  295.    \ifx\eee\empty%
  296.     \put(-35,66){\line(-5,3){100}}%        %double bond 4-5
  297.    \else% 
  298.     \put(-35,60){\line(-5,3){100}}%        %double bond 4-5
  299.    \fi%                                    % line <1OO not available
  300.   \fi%
  301.  }%
  302. % bond between 5 and 6
  303. \def\bonde{%
  304.   \ifx\fff\empty%
  305.    \ifx\eee\empty%
  306.     \put(-138,129){\line(0,1){148}}%       %double bond 5-6
  307.    \else%
  308.     \put(-138,143){\line(0,1){134}}%       %double bond 5-6
  309.    \fi%
  310.   \else%
  311.    \ifx\eee\empty%
  312.     \put(-138,129){\line(0,1){134}}%       %double bond 5-6
  313.    \else%
  314.     \put(-138,143){\line(0,1){110}}%       %double bond 5-6
  315.    \fi%
  316.   \fi%
  317. }%
  318. % bond between 1 and 6
  319. \def\bondf{%
  320.   \ifx\aaa\empty%
  321.    \ifx\fff\empty%
  322.     \put(-6,364){\line(-5,-3){126}}%        %double bond 1-6
  323.    \else%
  324.     \put(-6,364){\line(-5,-3){100}}%        %double bond 1-6
  325.    \fi%
  326.   \else%
  327.    \ifx\fff\empty%
  328.     \put(-35,340){\line(-5,-3){100}}%       %double bond 1-6
  329.    \else%
  330.     \put(-35,352){\line(-5,-3){100}}%       %double bond 1-6
  331.    \fi%                                     % line <1OO not available
  332.   \fi%
  333. }%
  334. % horizontal inner bond for five-membered rings
  335. \def\bondhoriz{%
  336.   \ifx\fff\empty%
  337.     \ifx\bbb\empty%
  338.      \put(-138,270){\line(1,0){277}}%      %double bond 4-3
  339.     \else%
  340.      \put(-138,270){\line(1,0){258}}%      %double bond 4-3
  341.     \fi%
  342.   \else%
  343.     \ifx\bbb\empty%
  344.      \put(-120,270){\line(1,0){258}}%      %double bond 4-3
  345.     \else%
  346.      \put(-120,270){\line(1,0){239}}%      %double bond 4-3
  347.     \fi%
  348.   \fi}%
  349. % horizontal inner bond for five-membered rings (inverse type) 
  350. \def\bondhorizi{%
  351.   \ifx\eee\empty%
  352.     \ifx\ccc\empty%
  353.      \put(-138,136){\line(1,0){277}}%      %double bond 4-3
  354.     \else%
  355.      \put(-138,136){\line(1,0){258}}%      %double bond 4-3
  356.     \fi%
  357.   \else%
  358.     \ifx\ccc\empty%
  359.      \put(-120,136){\line(1,0){258}}%      %double bond 4-3
  360.     \else%
  361.      \put(-120,136){\line(1,0){239}}%      %double bond 4-3
  362.     \fi%
  363.   \fi}%
  364. % **************************
  365. % * setting skeletal bonds *
  366. % **************************
  367. % These macros are used in \sixhetero and \fivehetero for setting 
  368. % skeletal bonds in accordance with the presence or the absence of 
  369. % hetero atoms. The following numbering is adopted in this macro. 
  370. %                   aaa
  371. %                    1
  372. %                  f * a
  373. %           fff 6  *   *  2 bbb
  374. %             e   |     |   b
  375. %                 |     |
  376. %           eee 5  *   *  3 ccc
  377. %                 d  *  c
  378. %                    4 <===== the original point
  379. %                   ddd
  380. % 
  381. %bond between 1 and 2
  382. \def\skbonda{%
  383.   \ifx\aaa\empty%
  384.     \ifx\bbb\empty%
  385.      \put(0,406){\line(5,-3){171}}%        %bond 1-2
  386.     \else%
  387.      \put(0,406){\line(5,-3){136}}%        %bond 1-2
  388.     \fi%
  389.    \else%
  390.     \ifx\bbb\empty%
  391.      \put(35,385){\line(5,-3){136}}%       %bond 1-2
  392.     \else%
  393.      \put(35,385){\line(5,-3){100}}%       %bond 1-2
  394.     \fi%
  395.    \fi}%
  396. %bond between 1 and 6
  397. \def\skbondf{%
  398.   \ifx\aaa\empty%
  399.     \ifx\fff\empty%
  400.      \put(0,406){\line(-5,-3){171}}%       %bond 1-6
  401.     \else%
  402.      \put(0,406){\line(-5,-3){136}}%       %bond 1-6
  403.     \fi%
  404.    \else%
  405.     \ifx\fff\empty%
  406.      \put(-35,385){\line(-5,-3){136}}%     %bond 1-6
  407.     \else%
  408.      \put(-35,385){\line(-5,-3){100}}%     %bond 1-6
  409.     \fi%
  410.    \fi}%
  411. %bond between 4 and 3
  412. \def\skbondc{%
  413.   \ifx\ddd\empty%
  414.     \ifx\ccc\empty%
  415.      \put(0,0){\line(5,3){171}}%           %bond 4-3
  416.     \else%
  417.      \put(0,0){\line(5,3){136}}%           %bond 4-3
  418.     \fi%
  419.   \else%
  420.     \ifx\ccc\empty%
  421.      \put(35,21){\line(5,3){138}}%         %bond 4-3
  422.     \else%
  423.      \put(35,21){\line(5,3){100}}%         %bond 4-3
  424.     \fi%
  425.   \fi}%
  426. %bond between 4 and 5
  427. \def\skbondd{%
  428.   \ifx\ddd\empty%
  429.     \ifx\eee\empty%
  430.      \put(0,0){\line(-5,3){171}}%          %bond 4-5
  431.     \else%
  432.      \put(0,0){\line(-5,3){136}}%          %bond 4-5
  433.     \fi%
  434.   \else%
  435.     \ifx\eee\empty%
  436.      \put(-35,21){\line(-5,3){138}}%       %bond 4-5
  437.     \else%
  438.      \put(-35,21){\line(-5,3){100}}%        %bond 4-5
  439.     \fi%
  440.   \fi}%
  441. %bond between 3 and 2
  442. \def\skbondb{%
  443.   \ifx\bbb\empty%%
  444.     \ifx\ccc\empty%%
  445.      \put(171,103){\line(0,1){200}}%       %bond 3-2
  446.     \else%
  447.      \put(171,143){\line(0,1){160}}%       %bond 3-2
  448.     \fi%
  449.   \else%
  450.     \ifx\ccc\empty%%
  451.      \put(171,103){\line(0,1){150}}%       %bond 3-2
  452.     \else%
  453.      \put(171,143){\line(0,1){110}}%       %bond 3-2
  454.     \fi%
  455.   \fi}%
  456. %bond between 5 and 6
  457. \def\skbonde{%
  458.   \ifx\eee\empty%
  459.     \ifx\fff\empty%
  460.      \put(-171,103){\line(0,1){200}}%       %bond 5-6
  461.     \else%
  462.      \put(-171,103){\line(0,1){150}}%       %bond 5-6
  463.     \fi%
  464.   \else%
  465.     \ifx\fff\empty%
  466.      \put(-171,143){\line(0,1){160}}%       %bond 5-6
  467.     \else%
  468.      \put(-171,143){\line(0,1){110}}%       %bond 5-6
  469.     \fi%
  470.   \fi}%
  471. %horizontal bond for five-membered rings
  472. \def\skbondhoriz{%
  473.   \ifx\fff\empty%
  474.     \ifx\bbb\empty%
  475.      \put(-171,303){\line(1,0){342}}%      %bond 4-3
  476.     \else%
  477.      \put(-171,303){\line(1,0){300}}%      %bond 4-3
  478.     \fi%
  479.   \else%
  480.     \ifx\bbb\empty%
  481.      \put(171,303){\line(-1,0){300}}%      %bond 4-3
  482.     \else%
  483.      \put(-129,303){\line(1,0){258}}%      %bond 4-3
  484.     \fi%
  485.   \fi}%
  486. %horizontal bond for five-membered rings (inverse type)
  487. \def\skbondhorizi{%
  488.   \ifx\eee\empty%
  489.     \ifx\ccc\empty%
  490.      \put(-171,103){\line(1,0){342}}%      %bond 4-3
  491.     \else%
  492.      \put(-171,103){\line(1,0){300}}%      %bond 4-3
  493.     \fi%
  494.   \else%
  495.     \ifx\ccc\empty%
  496.      \put(171,103){\line(-1,0){300}}%      %bond 4-3
  497.     \else%
  498.      \put(-129,103){\line(1,0){258}}%      %bond 4-3
  499.     \fi%
  500.   \fi}%
  501. %
  502. % *************************
  503. % * sixhetero derivatives *
  504. % *  (vertical type)      *
  505. % *************************
  506. % The following numbering is adopted in this macro. 
  507. %
  508. %          1
  509. %          * 
  510. %     6  *   *  2
  511. %       |     |
  512. %       |     |
  513. %     5  *   *  3
  514. %          *
  515. %          4 <===== the original point
  516. %
  517. %   \sixheterov[BONDLIST]{ATOMLIST}{SUBSLIST}
  518. %  
  519. %     BONDLIST = 
  520. %
  521. %           none or r  :  sixhetero (right-handed)
  522. %           l          :  sixhetero (left-handed)
  523. %           a          :  1,2-double bond
  524. %           b          :  2,3-double bond
  525. %           c          :  4,3-double bond
  526. %           d          :  4,5-double bond
  527. %           e          :  5,6-double bond
  528. %           f          :  6,1-double bond
  529. %           A          :  aromatic circle 
  530. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  531. %
  532. %     ATOMLIST: list of heteroatoms (max 6 atoms)
  533. %
  534. %       for n = 1 to 6
  535. %
  536. %           n          : Hetero atom, e.g. N, O, etc. at n-position, 
  537. %                        e.g. 1==N for N at 1-position
  538. %
  539. %     SUBSLIST: list of substituents (max 6 substitution positions)
  540. %
  541. %       for n = 1 to 6 
  542. %
  543. %           nD         :  exocyclic double bond at n-atom
  544. %           n or nS    :  exocyclic single bond at n-atom
  545. %           nA         :  alpha single bond at n-atom
  546. %           nB         :  beta single bond at n-atom
  547. %           nSA        :  alpha single bond at n-atom (boldface)
  548. %           nSB        :  beta single bond at n-atom (dotted line)
  549. %           nSa        :  alpha (not specified) single bond at n-atom
  550. %           nSb        :  beta (not specified) single bond at n-atom
  551. %
  552. %       e.g. 
  553. %        
  554. %        \sixheterov{1==N}{1==Cl;2==F}
  555. %        \sixheterov[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  556. %        \sixheterov[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5==Cl;6==Cl}
  557. %
  558. \def\sixheterov{\@ifnextchar[{\@sixheterov}{\@sixheterov[r]}}
  559. \def\@sixheterov[#1]#2#3{%
  560. %%%%%%%%%%%%%%%%%%%%%%%%%%
  561. % treatment of atom list %
  562. %%%%%%%%%%%%%%%%%%%%%%%%%%
  563. \iniatom\iniflag%initialize
  564. \@forsemicol\member:=#2\do{%
  565. \expandafter\@m@mb@r\member;\relax%
  566. \expandafter\twoch@r\@membera{}%
  567. \ifcase\@tmpa%
  568.  \or \xdef\aaa{\@memberb}%
  569.  \or \xdef\bbb{\@memberb}%
  570.  \or \xdef\ccc{\@memberb}%
  571.  \or \xdef\ddd{\@memberb}%
  572.  \or \xdef\eee{\@memberb}%
  573.  \or \xdef\fff{\@memberb}%
  574. \fi}%
  575.  \begin{picture}(800,880)(-\shiftii,-\shifti)
  576.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  577.            \put(-\noshift,-\noshift){\circle{50}}% 
  578.    \typeout{command `sixheterov' origin: %
  579.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  580. %%%%%%%%%%%%%%%%%%
  581. % outer skeleton %
  582. %%%%%%%%%%%%%%%%%%
  583.  \skbonda% bond between 1 and 2
  584.  \skbondf% bond between 1 and 6
  585.  \skbondc% bond between 4 and 3
  586.  \skbondd% bond between 4 and 5
  587.  \skbondb% bond between 3 and 2
  588.  \skbonde% bond between 5 and 6
  589. %%%%%%%%%%%%%%%%%%%%%
  590. % inner double bond %
  591. %%%%%%%%%%%%%%%%%%%%%
  592. \@tfor\member:=#1\do{%
  593. \if\member r\relax \bondd \bondf \bondb%
  594. \else\if\member l\relax \bonda \bondc \bonde%
  595. \else\if\member a\relax \bonda%
  596. \else\if\member b\relax \bondb%
  597. \else\if\member c\relax \bondc%
  598. \else\if\member d\relax \bondd%
  599. \else\if\member e\relax \bonde%
  600. \else\if\member f\relax \bondf%
  601. \else\if\member A%left aromatic circle 
  602.   \put(0,203){\circle{240}}%               %circle
  603. \else \expandafter\twoch@@r\member{}{}%
  604.       \if\@@tmpa 1\relax%
  605.         \putratom{-38}{282}{\@@tmpb}%      % right type
  606.       \else\if\@@tmpa 2\relax%
  607.         \putratom{60}{253}{\@@tmpb}%       % right type
  608.       \else\if\@@tmpa 3\relax%
  609.         \putratom{60}{120}{\@@tmpb}%       % right type
  610.       \else\if\@@tmpa 4\relax%
  611.         \putratom{-38}{88}{\@@tmpb}%       % right type
  612.       \else\if\@@tmpa 6\relax%
  613.         \putratom{-90}{253}{\@@tmpb}%      % right type
  614.       \else\if\@@tmpa 5\relax%
  615.         \putratom{-90}{120}{\@@tmpb}%      % right type
  616.       \fi\fi\fi\fi\fi\fi%
  617. \fi\fi\fi\fi\fi\fi\fi\fi\fi%
  618. }%
  619. %%%%%%%%%%%%%%%%%%%%%%%%
  620. % setting hetero atoms %
  621. %%%%%%%%%%%%%%%%%%%%%%%%
  622. \ifx\ddd\empty\else%
  623.    \@cliptrue% 
  624.    \putratom{-31}{-10}{\ddd}%  % right type
  625. \fi%
  626. \ifx\aaa\empty\else%
  627.      \@acliptrue%
  628.      \putratom{-31}{356}{\aaa}%  % right type
  629. \fi%
  630. \ifx\bbb\empty\else%
  631.      \@bcliptrue%
  632.      \putratom{135}{280}{\bbb}%  % right type
  633. \fi%
  634. \ifx\ccc\empty\else%
  635.      \@ccliptrue%
  636.      \putratom{135}{65}{\ccc}%   % right type
  637. \fi%
  638. \ifx\fff\empty\else%
  639.      \@fcliptrue%
  640.      \putlatom{-135}{280}{\fff}% % left type
  641. \fi%
  642. \ifx\eee\empty\else%
  643.      \@ecliptrue%
  644.      \putlatom{-135}{65}{\eee}%  % left type
  645. \fi%
  646. \setsixringv{#3}{0}{0}{7}{0}%    %subst 1--6
  647. \end{picture}\iniatom\iniflag}%     %end of \sixheterov macro
  648. %
  649. % **********************************
  650. % * sixhetero derivatives          *
  651. % *  (vertical type, inverse type) *
  652. % **********************************
  653. % The following numbering is adopted in this macro. 
  654. %
  655. %          4
  656. %          * 
  657. %     5  *   *  3
  658. %       |     |
  659. %       |     |
  660. %     6  *   *  2
  661. %          *
  662. %          1 <===== the original point
  663. %
  664. %   \sixheterovi[BONDLIST]{ATOMLIST}{SUBSLIST}
  665. %  
  666. %     BONDLIST = 
  667. %
  668. %           none or r  :  sixhetero (right-handed)
  669. %           l          :  sixhetero (left-handed)
  670. %           [] or H    :  fully saturated form
  671. %           a          :  1,2-double bond
  672. %           b          :  2,3-double bond
  673. %           c          :  4,3-double bond
  674. %           d          :  4,5-double bond
  675. %           e          :  5,6-double bond
  676. %           f          :  6,1-double bond
  677. %           A          :  aromatic circle 
  678. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  679. %
  680. %     ATOMLIST: list of heteroatoms (max 6 atoms)
  681. %
  682. %       for n = 1 to 6
  683. %
  684. %           n          : Hetero atom, e.g. N, O, etc. at n-position, 
  685. %                        e.g. 1==N for N at 1-position
  686. %
  687. %     SUBSLIST: list of substituents (max 6 substitution positions)
  688. %
  689. %       for n = 1 to 6 
  690. %
  691. %           nD         :  exocyclic double bond at n-atom
  692. %           n or nS    :  exocyclic single bond at n-atom
  693. %           nA         :  alpha single bond at n-atom
  694. %           nB         :  beta single bond at n-atom
  695. %           nSA        :  alpha single bond at n-atom (boldface)
  696. %           nSB        :  beta single bond at n-atom (dotted line)
  697. %           nSa        :  alpha (not specified) single bond at n-atom
  698. %           nSb        :  beta (not specified) single bond at n-atom
  699. %
  700. %       e.g. 
  701. %        
  702. %        \sixheterovi{1==N}{1==Cl;2==F}
  703. %        \sixheterovi[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  704. %        \sixheterovi[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5==Cl;6==Cl}
  705. %
  706. \def\sixheterovi{\@ifnextchar[{\@sixheterovi}{\@sixheterovi[r]}}
  707. \def\@sixheterovi[#1]#2#3{%
  708. %%%%%%%%%%%%%%%%%%%%%%%%%%
  709. % treatment of atom list %
  710. %%%%%%%%%%%%%%%%%%%%%%%%%%
  711. \iniatom\iniflag%initialize
  712. \@forsemicol\member:=#2\do{%
  713. \expandafter\@m@mb@r\member;\relax%
  714. \expandafter\twoch@r\@membera{}%
  715. \ifcase\@tmpa%
  716.  \or \xdef\ddd{\@memberb}%
  717.  \or \xdef\ccc{\@memberb}%
  718.  \or \xdef\bbb{\@memberb}%
  719.  \or \xdef\aaa{\@memberb}%
  720.  \or \xdef\fff{\@memberb}%
  721.  \or \xdef\eee{\@memberb}%
  722. \fi}%
  723.  \begin{picture}(800,880)(-\shiftii,-\shifti)
  724.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  725.            \put(-\noshift,-\noshift){\circle{50}}% 
  726.    \typeout{command `sixheterovi' origin: %
  727.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  728. %%%%%%%%%%%%%%%%%%
  729. % outer skeleton %
  730. %%%%%%%%%%%%%%%%%%
  731.  \skbonda% bond between 4 and 3
  732.  \skbondf% bond between 4 and 5
  733.  \skbondc% bond between 1 and 2
  734.  \skbondd% bond between 1 and 6
  735.  \skbondb% bond between 3 and 2
  736.  \skbonde% bond between 5 and 6
  737. %%%%%%%%%%%%%%%%%%%%%
  738. % inner double bond %
  739. %%%%%%%%%%%%%%%%%%%%%
  740. \@tfor\member:=#1\do{%
  741. \if\member r\relax \bondd \bondf \bondb%
  742. \else\if\member l\relax \bonda \bondc \bonde%
  743. \else\if\member a\relax \bondc%
  744. \else\if\member b\relax \bondb%
  745. \else\if\member c\relax \bonda%
  746. \else\if\member d\relax \bondf%
  747. \else\if\member e\relax \bonde%
  748. \else\if\member f\relax \bondd%
  749. \else\if\member A%left aromatic circle 
  750.   \put(0,203){\circle{240}}%               %circle
  751. \else \expandafter\twoch@@r\member{}{}%
  752.       \if\@@tmpa 4\relax%
  753.         \putratom{-38}{282}{\@@tmpb}%      % right type
  754.       \else\if\@@tmpa 3\relax%
  755.         \putratom{60}{253}{\@@tmpb}%       % right type
  756.       \else\if\@@tmpa 2\relax%
  757.         \putratom{60}{120}{\@@tmpb}%       % right type
  758.       \else\if\@@tmpa 1\relax%
  759.         \putratom{-38}{88}{\@@tmpb}%       % right type
  760.       \else\if\@@tmpa 5\relax%
  761.         \putratom{-90}{253}{\@@tmpb}%      % right type
  762.       \else\if\@@tmpa 6\relax%
  763.         \putratom{-90}{120}{\@@tmpb}%      % right type
  764.       \fi\fi\fi\fi\fi\fi%
  765. \fi\fi\fi\fi\fi\fi\fi\fi\fi%
  766. }%
  767. %%%%%%%%%%%%%%%%%%%%%%%%
  768. % setting hetero atoms %
  769. %%%%%%%%%%%%%%%%%%%%%%%%
  770. \ifx\ddd\empty\else%
  771.    \@cliptrue% 
  772.    \putratom{-31}{-10}{\ddd}%  % right type
  773. \fi%
  774. \ifx\aaa\empty\else%
  775.      \@acliptrue%
  776.      \putratom{-31}{356}{\aaa}%  % right type
  777. \fi%
  778. \ifx\bbb\empty\else%
  779.      \@bcliptrue%
  780.      \putratom{135}{280}{\bbb}%  % right type
  781. \fi%
  782. \ifx\ccc\empty\else%
  783.      \@ccliptrue%
  784.      \putratom{135}{65}{\ccc}%   % right type
  785. \fi%
  786. \ifx\fff\empty\else%
  787.      \@fcliptrue%
  788.      \putlatom{-135}{280}{\fff}% % left type
  789. \fi%
  790. \ifx\eee\empty\else%
  791.      \@ecliptrue%
  792.      \putlatom{-135}{65}{\eee}%  % left type
  793. \fi%
  794. \setsixringv{#3}{5}{0}{5}{-1}%    %subst 1--4
  795. \setsixringv{#3}{11}{4}{7}{-1}%   %subst 5 and 6
  796. \end{picture}\iniatom\iniflag}%     %end of \sixheterovi macro
  797. %
  798. % ************************
  799. % * pyridine derivatives *
  800. % *  (vertical type)     *
  801. % ************************
  802. %
  803. %   \pyridinev[BONDLIST]{SUBSLIST}
  804. %   \pyridinevi[BONDLIST]{SUBSLIST}
  805. %   \pyrazinev[BONDLIST]{SUBSLIST}
  806. %   \pyrimidinev[BONDLIST]{SUBSLIST}
  807. %   \pyrimidinevi[BONDLIST]{SUBSLIST}
  808. %   \triazinev[BONDLIST]{SUBSLIST}
  809. %   \triazinevi[BONDLIST]{SUBSLIST}
  810. %
  811. %     BONDLIST = 
  812. %
  813. %           none or r  :  pyridine (right-handed)
  814. %           l          :  pyridine (left-handed)
  815. %           H or []    :  fully saturated ring
  816. %           a          :  1,2-double bond
  817. %           b          :  2,3-double bond
  818. %           c          :  4,3-double bond
  819. %           d          :  4,5-double bond
  820. %           e          :  5,6-double bond
  821. %           f          :  6,1-double bond
  822. %           A          :  aromatic circle 
  823. %           *          :  plus at the nitrogen atom
  824. %
  825. %     SUBSLIST: list of substituents (max 6 substitution positions)
  826. %
  827. %       for n = 1 to 6 
  828. %
  829. %           nD         :  exocyclic double bond at n-atom
  830. %           n or nS    :  exocyclic single bond at n-atom
  831. %           nA         :  alpha single bond at n-atom
  832. %           nB         :  beta single bond at n-atom
  833. %           nSA        :  alpha single bond at n-atom (boldface)
  834. %           nSB        :  beta single bond at n-atom (dotted line)
  835. %           nSa        :  alpha (not specified) single bond at n-atom
  836. %           nSb        :  beta (not specified) single bond at n-atom
  837. %
  838. %       e.g. 
  839. %        
  840. %        \pyridinev{1==Cl;2==F}
  841. %        \pyridinev[c]{1==Cl;4==F;2==CH$_{3}$}
  842. %        \pyridinev[eb]{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  843. %
  844. \def\pyridinev{\@ifnextchar[{\@pyridinev}{\@pyridinev[r]}}
  845. \def\@pyridinev[#1]#2{%
  846. \iforigpt \typeout{command `pyridinev' is based on `sixheterov'.}\fi%
  847. \sixheterov[#1]{1==N}{#2}} %end of \pyridinev macro
  848. \def\pyridinevi{\@ifnextchar[{\@pyridinevi}{\@pyridinevi[r]}}
  849. \def\@pyridinevi[#1]#2{%
  850. \iforigpt \typeout{command `pyridinevi' is based on `sixheterovi'.}\fi%
  851. \sixheterovi[#1]{1==N}{#2}} %end of \pyridinevi macro
  852. %
  853. \def\pyrazinev{\@ifnextchar[{\@pyrazinev}{\@pyrazinev[r]}}
  854. \def\@pyrazinev[#1]#2{%
  855. \iforigpt \typeout{command `pyrazinev' is based on `sixheterov'.}\fi%
  856. \sixheterov[#1]{1==N;4==N}{#2}}%end of \pyrazinev macro
  857. %
  858. \def\pyrimidinev{\@ifnextchar[{\@pyrimidinev}{\@pyrimidinev[r]}}
  859. \def\@pyrimidinev[#1]#2{%
  860. \iforigpt \typeout{command `pyrimidinev' is based on `sixheterov'.}\fi%
  861. \sixheterov[#1]{1==N;3==N}{#2}} 
  862.    %end of \pyrimidinev macro
  863. \def\pyrimidinevi{\@ifnextchar[{\@pyrimidinevi}{\@pyrimidinevi[r]}}
  864. \def\@pyrimidinevi[#1]#2{%
  865. \iforigpt \typeout{command `pyrimidinevi' is based on `sixheterovi'.}\fi%
  866. \sixheterovi[#1]{1==N;3==N}{#2}} 
  867.    %end of \pyrimidinevi macro
  868. %
  869. \def\pyridazinev{\@ifnextchar[{\@pyridazinev}{\@pyridazinev[r]}}
  870. \def\@pyridazinev[#1]#2{%
  871. \iforigpt \typeout{command `pyridazinev' is based on `sixheterov'.}\fi%
  872. \sixheterov[#1]{1==N;2==N}{#2}} 
  873.    %end of \pyridazinev macro
  874. \def\pyridazinevi{\@ifnextchar[{\@pyridazinevi}{\@pyridazinevi[r]}}
  875. \def\@pyridazinevi[#1]#2{%
  876. \iforigpt \typeout{command `pyridazinev' is based on `sixheterovi'.}\fi%
  877. \sixheterovi[#1]{1==N;2==N}{#2}} 
  878.    %end of \pyridazinevi macro
  879. %
  880. \def\triazinev{\@ifnextchar[{\@triazinev}{\@triazinev[r]}}
  881. \def\@triazinev[#1]#2{%
  882. \iforigpt \typeout{command `triazinev' is based on `sixheterov'.}\fi%
  883. \sixheterov[#1]{1==N;3==N;5==N}{#2}} 
  884.    %end of \triazinev macro
  885. %
  886. \def\triazinevi{\@ifnextchar[{\@triazinevi}{\@triazinevi[r]}}
  887. \def\@triazinevi[#1]#2{%
  888. \iforigpt \typeout{command `triazinevi' is based on `sixheterovi'.}\fi%
  889. \sixheterovi[#1]{1==N;3==N;5==N}{#2}} 
  890.    %end of \triazinevi macro
  891. %
  892. % **************************
  893. % * fivehetero derivatives *
  894. % *  (vertical type)       *
  895. % **************************
  896. % The following numbering is adopted in this macro. 
  897. %
  898. %     4  _____  3
  899. %       |     |
  900. %       |     |
  901. %     5  *   *  2
  902. %          *
  903. %          1 <===== the original point
  904. %
  905. %   \fiveheterov[BONDLIST]{ATOMLIST}{SUBSLIST}
  906. %  
  907. %     BONDLIST: list of inner double bonds 
  908. %
  909. %           a          :  1,2-double bond
  910. %           b          :  2,3-double bond
  911. %           c          :  4,3-double bond
  912. %           d          :  4,5-double bond
  913. %           e          :  5,1-double bond
  914. %           A          :  aromatic circle
  915. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 5)
  916. %           {0+}       :  plus (or minus) at the center
  917. %
  918. %     ATOMLIST: list of heteroatoms (max 5 atoms)
  919. %
  920. %       for n = 1 to 5
  921. %
  922. %           n          : Hetero atom, e.g. N, O, etc. at n-position
  923. %                        e.g. 1==N for N at 1-position
  924. %
  925. %     SUBSLIST: list of substituents (max 5 substitution positions)
  926. %
  927. %       for n = 1 to 5 
  928. %
  929. %           nD         :  exocyclic double bond at n-atom
  930. %           n or nS    :  exocyclic single bond at n-atom
  931. %           nA         :  alpha single bond at n-atom
  932. %           nB         :  beta single bond at n-atom
  933. %           nSA        :  alpha single bond at n-atom (boldface)
  934. %           nSB        :  beta single bond at n-atom (dotted line)
  935. %           nSa        :  alpha (not specified) single bond at n-atom
  936. %           nSb        :  beta (not specified) single bond at n-atom
  937. %
  938. %       e.g. 
  939. %        
  940. %        \fiveheterov{1==N}{1==H;2==F}
  941. %        \fiveheterov[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  942. %        \fiveheterov[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  943. %
  944. \def\fiveheterov{\@ifnextchar[{\@fiveheterov}{\@fiveheterov[r]}}
  945. \def\@fiveheterov[#1]#2#3{%
  946. \iniatom\iniflag%initialize
  947. %\def\aaa{}\def\bbb{}\def\ccc{}\def\ddd{}\def\eee{}\def\fff{}%
  948. \@forsemicol\member:=#2\do{%
  949. \expandafter\@m@mb@r\member;\relax%
  950. \expandafter\twoch@r\@membera{}%
  951. \ifcase\@tmpa%
  952.  \or \xdef\ddd{\@memberb}%
  953.  \or \xdef\ccc{\@memberb}%
  954.  \or \xdef\bbb{\@memberb}%
  955.  \or \xdef\fff{\@memberb}%
  956.  \or \xdef\eee{\@memberb}%
  957. \fi}%
  958. \begin{picture}(800,880)(-\shiftii,-\shifti)%
  959.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  960.            \put(-\noshift,-\noshift){\circle{50}}% 
  961.    \typeout{command `fiveheterov' origin: %
  962.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  963. %%%%%%%%%%%%%%%%%%
  964. % outer skeleton %
  965. %%%%%%%%%%%%%%%%%%
  966. \skbondc%bond between 1 and 2
  967. \skbondd%bond between 1 and 5
  968. \skbondb%bond between 2 to 3
  969. \skbonde%bond between 5 and 4
  970. \skbondhoriz%bond between 4 and 3
  971. %%%%%%%%%%%%%%%%%%%%%
  972. % inner double bond %
  973. %%%%%%%%%%%%%%%%%%%%%
  974. \@tfor\member:=#1\do{%
  975. \if\member r%
  976. \else\if\member a\relax \bondc%
  977. \else\if\member b\relax \bondb%
  978. \else\if\member c\relax \bondhoriz%
  979. \else\if\member d\relax \bonde%
  980. \else\if\member e\relax \bondd%
  981. \else\if\member A\relax%
  982.  \put(0,173){\circle{180}}%aromatic circle
  983. \else \expandafter\twoch@@r\member{}{}%     %plus or minus charges
  984.       \if\@@tmpa 1\relax%
  985.         \putratom{-38}{88}{\@@tmpb}%        % right type
  986.       \else\if\@@tmpa 2\relax%
  987.         \putratom{60}{120}{\@@tmpb}%        % right type
  988.       \else\if\@@tmpa 3\relax%
  989.         \putratom{60}{233}{\@@tmpb}%        % right type
  990.       \else\if\@@tmpa 4\relax%
  991.         \putratom{-60}{233}{\@@tmpb}%       % right type
  992.       \else\if\@@tmpa 5\relax%
  993.         \putratom{-60}{120}{\@@tmpb}%       % right type
  994.       \else\if\@@tmpa 0\relax%
  995.         \putratom{-38}{150}{\@@tmpb}%       % right type
  996.       \fi\fi\fi\fi\fi\fi%
  997. \fi\fi\fi\fi\fi\fi\fi}%
  998. %%%%%%%%%%%%%%%%%%%%%%%
  999. % setting heteroatoms %
  1000. %%%%%%%%%%%%%%%%%%%%%%%
  1001. \ifx\ddd\empty\else%
  1002.    \@cliptrue% 
  1003.    \putratom{-31}{-10}{\ddd}%    % right type at 1
  1004. \fi%
  1005. \ifx\bbb\empty\else%
  1006.      \@bcliptrue%
  1007.      \putratom{135}{280}{\bbb}%  % right type at 3
  1008. \fi%
  1009. \ifx\fff\empty\else%
  1010.      \@fcliptrue%
  1011.      \putlatom{-135}{280}{\fff}% % left type at 4
  1012. \fi%
  1013. \ifx\ccc\empty\else%
  1014.      \@ccliptrue%
  1015.      \putratom{135}{65}{\ccc}%   % right type at 2
  1016. \fi%
  1017. \ifx\eee\empty\else%
  1018.      \@ecliptrue%
  1019.      \putlatom{-135}{65}{\eee}%  % left type at 5 
  1020. \fi%
  1021. %%%%%%%%%%%%%%%%%%%%%%%%
  1022. % setting substituents %
  1023. %%%%%%%%%%%%%%%%%%%%%%%%
  1024. \setsixringv{#3}{5}{1}{5}{-1}%   % for 1 to 3
  1025. \setsixringv{#3}{10}{4}{7}{-1}%  % for 4 to 5
  1026. \end{picture}\iniatom\iniflag}%             %end of \fiveheterov macro
  1027. %
  1028. % *****************************
  1029. % * fivehetero derivatives    *
  1030. % *  (vertical type, inverse) *
  1031. % *****************************
  1032. % The following numbering is adopted in this macro. 
  1033. %
  1034. %          1
  1035. %          * 
  1036. %     6  *   *  2
  1037. %       |     |
  1038. %       |_____|
  1039. %     4         3
  1040. %          *
  1041. %        (0,0) <===== the original point
  1042. %
  1043. %   \fiveheterovi[BONDLIST]{ATOMLIST}{SUBSLIST}
  1044. %  
  1045. %     BONDLIST: list of inner double bonds 
  1046. %
  1047. %           a          :  1,2-double bond
  1048. %           b          :  2,3-double bond
  1049. %           c          :  4,3-double bond
  1050. %           d          :  4,5-double bond
  1051. %           e          :  5,1-double bond
  1052. %           A          :  aromatic circle
  1053. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 5)
  1054. %           {0+}       :  plus (or minus) at the center
  1055. %
  1056. %     ATOMLIST: list of heteroatoms (max 5 atoms)
  1057. %
  1058. %       for n = 1 to 5
  1059. %
  1060. %           n          : Hetero atom, e.g. N, O, etc. at n-position
  1061. %                        e.g. 1==N for N at 1-position
  1062. %
  1063. %     SUBSLIST: list of substituents (max 5 substitution positions)
  1064. %
  1065. %       for n = 1 to 5 
  1066. %
  1067. %           nD         :  exocyclic double bond at n-atom
  1068. %           n or nS    :  exocyclic single bond at n-atom
  1069. %           nA         :  alpha single bond at n-atom
  1070. %           nB         :  beta single bond at n-atom
  1071. %           nSA        :  alpha single bond at n-atom (boldface)
  1072. %           nSB        :  beta single bond at n-atom (dotted line)
  1073. %           nSa        :  alpha (not specified) single bond at n-atom
  1074. %           nSb        :  beta (not specified) single bond at n-atom
  1075. %
  1076. %       e.g. 
  1077. %        
  1078. %        \fiveheterovi{1==N}{1==H;2==F}
  1079. %        \fiveheterovi[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  1080. %        \fiveheterovi[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  1081. %
  1082. \def\fiveheterovi{\@ifnextchar[{\@fiveheterovi}{\@fiveheterovi[r]}}
  1083. \def\@fiveheterovi[#1]#2#3{%
  1084. \iniatom\iniflag%initialize
  1085. \@forsemicol\member:=#2\do{%
  1086. \expandafter\@m@mb@r\member;\relax%
  1087. \expandafter\twoch@r\@membera{}%
  1088. \ifcase\@tmpa%
  1089.  \or \xdef\aaa{\@memberb}%
  1090.  \or \xdef\bbb{\@memberb}%
  1091.  \or \xdef\ccc{\@memberb}%
  1092.  \or \xdef\eee{\@memberb}%
  1093.  \or \xdef\fff{\@memberb}%
  1094. \fi}%
  1095. \begin{picture}(800,880)(-\shiftii,-\shifti)%
  1096.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  1097.            \put(-\noshift,-\noshift){\circle{50}}% 
  1098.    \typeout{command `fiveheterovi' origin: %
  1099.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  1100. %%%%%%%%%%%%%%%%%%
  1101. % outer skeleton %
  1102. %%%%%%%%%%%%%%%%%%
  1103. \skbonda%bond between 1 and 2
  1104. \skbondb%bond between 2 and 3
  1105. \skbonde%bond between 4 and 5
  1106. \skbondf%bond between 1 and 5
  1107. \skbondhorizi% bond between 3 and 4
  1108. %%%%%%%%%%%%%%%%%%%%%
  1109. % inner double bond %
  1110. %%%%%%%%%%%%%%%%%%%%%
  1111. \@tfor\member:=#1\do{%
  1112. \if\member r%
  1113. \else\if\member a\relax \bonda%
  1114. \else\if\member b\relax \bondb%
  1115. \else\if\member c\relax \bondhorizi%
  1116. \else\if\member d\relax \bonde%
  1117. \else\if\member e\relax \bondf%
  1118. \else\if\member A\relax%
  1119.  \put(0,233){\circle{180}}%aromatic circle
  1120. \else \expandafter\twoch@@r\member{}{}%     %plus or minus charges
  1121.       \if\@@tmpa 1\relax%
  1122.         \putratom{-38}{282}{\@@tmpb}%      % right type
  1123.       \else\if\@@tmpa 2\relax%
  1124.         \putratom{60}{233}{\@@tmpb}%        % right type
  1125.       \else\if\@@tmpa 3\relax%
  1126.         \putratom{60}{120}{\@@tmpb}%        % right type
  1127.       \else\if\@@tmpa 4\relax%
  1128.         \putratom{-60}{120}{\@@tmpb}%       % right type
  1129.       \else\if\@@tmpa 5\relax%
  1130.         \putratom{-60}{233}{\@@tmpb}%       % right type
  1131.       \else\if\@@tmpa 0\relax%
  1132.         \putratom{-38}{213}{\@@tmpb}%       % right type
  1133.       \fi\fi\fi\fi\fi\fi%
  1134. \fi\fi\fi\fi\fi\fi\fi}%
  1135. %%%%%%%%%%%%%%%%%%%%%%%
  1136. % setting heteroatoms %
  1137. %%%%%%%%%%%%%%%%%%%%%%%
  1138. \ifx\aaa\empty\else%
  1139.      \@acliptrue%
  1140.      \putratom{-31}{356}{\aaa}%  % right type  at 1
  1141. \fi%
  1142. \ifx\bbb\empty\else%
  1143.      \@bcliptrue%
  1144.      \putratom{135}{280}{\bbb}%  % right type at 2
  1145. \fi%
  1146. \ifx\fff\empty\else%
  1147.      \@fcliptrue%
  1148.      \putlatom{-135}{280}{\fff}% % left type at 5
  1149. \fi%
  1150. \ifx\ccc\empty\else%
  1151.      \@ccliptrue%
  1152.      \putratom{135}{65}{\ccc}%   % right type at 3
  1153. \fi%
  1154. \ifx\eee\empty\else%
  1155.      \@ecliptrue%
  1156.      \putlatom{-135}{65}{\eee}%  % left type at 4 
  1157. \fi%
  1158. %%%%%%%%%%%%%%%%%%%%%%%%
  1159. % setting substituents %
  1160. %%%%%%%%%%%%%%%%%%%%%%%%
  1161. \setsixringv{#3}{0}{0}{4}{0}%  % for 1 to 3
  1162. \setsixringv{#3}{1}{4}{7}{0}%  % for 4 to 5
  1163. \end{picture}\iniatom\iniflag}               %end of \fiveheterov macro
  1164. %
  1165. % ***********************************
  1166. % * pyrrole derivatives  and others *
  1167. % *  (vertical type)                *
  1168. % ***********************************
  1169. %
  1170. %   \pyrrolev[BONDLIST]{SUBSLIST}
  1171. %   \pyrazolev[BONDLIST]{SUBSLIST}
  1172. %   \imidazolev[BONDLIST]{SUBSLIST}
  1173. %   \isoxazolev[BONDLIST]{SUBSLIST}
  1174. %   \oxazolev[BONDLIST]{SUBSLIST}
  1175. %  
  1176. %     BONDLIST: list of inner double bonds 
  1177. %
  1178. %           none       :  mother nucleus
  1179. %           H or []    :  fully saturated form
  1180. %           a          :  1,2-double bond
  1181. %           b          :  2,3-double bond
  1182. %           c          :  4,3-double bond
  1183. %           d          :  4,5-double bond
  1184. %           e          :  5,1-double bond
  1185. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  1186. %
  1187. %     SUBSLIST: list of substituents (max 6 substitution positions)
  1188. %
  1189. %       for n = 1 to 5 
  1190. %
  1191. %           nD         :  exocyclic double bond at n-atom
  1192. %           n or nS    :  exocyclic single bond at n-atom
  1193. %           nA         :  alpha single bond at n-atom
  1194. %           nB         :  beta single bond at n-atom
  1195. %           nSA        :  alpha single bond at n-atom (boldface)
  1196. %           nSB        :  beta single bond at n-atom (dotted line)
  1197. %           nSa        :  alpha (not specified) single bond at n-atom
  1198. %           nSb        :  beta (not specified) single bond at n-atom
  1199. %
  1200. %       e.g. 
  1201. %        
  1202. %        \pyrrolev{1==H;2==F}
  1203. %        \pyrrolev[]{1==H;2==F}
  1204. %        \pyrrolev[H]{1==H;2==F}
  1205. %        \imidazolev[c]{1==Cl;4==F;2==CH$_{3}$}
  1206. %        \isoxazolev[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  1207. %
  1208. \def\pyrrolev{\@ifnextchar[{\@pyrrolev}{\@pyrrolev[bd]}}
  1209. \def\@pyrrolev[#1]#2{%
  1210. %\iforigpt \typeout{command `pyrrolev' is based on `fiveheterov'.}\fi%
  1211. \fiveheterov[#1]{1==N}{#2}}
  1212. \def\pyrazolev{\@ifnextchar[{\@pyrazolev}{\@pyrazolev[bd]}}
  1213. \def\@pyrazolev[#1]#2{%
  1214. %\iforigpt \typeout{command `pyrazolev' is based on `fiveheterov'.}\fi%
  1215. \fiveheterov[#1]{1==N;2==N}{#2}}
  1216. \def\imidazolev{\@ifnextchar[{\@imidazolev}{\@imidazolev[bd]}}
  1217. \def\@imidazolev[#1]#2{%
  1218. %\iforigpt \typeout{command `imidazolev' is based on `fiveheterov'.}\fi%
  1219. \fiveheterov[#1]{1==N;3==N}{#2}}
  1220. \def\isoxazolev{\@ifnextchar[{\@isoxazolev}{\@isoxazolev[bd]}}
  1221. \def\@isoxazolev[#1]#2{%
  1222. %\iforigpt \typeout{command `isoxazolev' is based on `fiveheterov'.}\fi%
  1223. \fiveheterov[#1]{1==O;2==N}{#2}}
  1224. \def\oxazolev{\@ifnextchar[{\@oxazolev}{\@oxazolev[bd]}}
  1225. \def\@oxazolev[#1]#2{%
  1226. %\iforigpt \typeout{command `oxazolev' is based on `fiveheterov'.}\fi%
  1227. \fiveheterov[#1]{1==O;3==N}{#2}}
  1228. %
  1229. % ***********************************
  1230. % * pyrrole derivatives  and others *
  1231. % *  (vertical type, inverse)       *
  1232. % ***********************************
  1233. %
  1234. %   \pyrrolevi[BONDLIST]{SUBSLIST}
  1235. %   \pyrazolevi[BONDLIST]{SUBSLIST}
  1236. %   \imidazolevi[BONDLIST]{SUBSLIST}
  1237. %   \isoxazolevi[BONDLIST]{SUBSLIST}
  1238. %   \oxazolevi[BONDLIST]{SUBSLIST}
  1239. %  
  1240. %     BONDLIST: list of inner double bonds 
  1241. %
  1242. %           none       :  mother nucleus
  1243. %           H or []    :  fully saturated form
  1244. %           a          :  1,2-double bond
  1245. %           b          :  2,3-double bond
  1246. %           c          :  4,3-double bond
  1247. %           d          :  4,5-double bond
  1248. %           e          :  5,1-double bond
  1249. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  1250. %
  1251. %     SUBSLIST: list of substituents (max 6 substitution positions)
  1252. %
  1253. %       for n = 1 to 5 
  1254. %
  1255. %           nD         :  exocyclic double bond at n-atom
  1256. %           n or nS    :  exocyclic single bond at n-atom
  1257. %           nA         :  alpha single bond at n-atom
  1258. %           nB         :  beta single bond at n-atom
  1259. %           nSA        :  alpha single bond at n-atom (boldface)
  1260. %           nSB        :  beta single bond at n-atom (dotted line)
  1261. %           nSa        :  alpha (not specified) single bond at n-atom
  1262. %           nSb        :  beta (not specified) single bond at n-atom
  1263. %
  1264. %       e.g. 
  1265. %        
  1266. %        \pyrrolevi{1==H;2==F}
  1267. %        \pyrrolevi[]{1==H;2==F}
  1268. %        \pyrrolevi[H]{1==H;2==F}
  1269. %        \imidazolevi[c]{1==Cl;4==F;2==CH$_{3}$}
  1270. %        \isoxazolevi[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  1271. %
  1272. \def\pyrrolevi{\@ifnextchar[{\@pyrrolevi}{\@pyrrolevi[bd]}}
  1273. \def\@pyrrolevi[#1]#2{%
  1274. %\iforigpt \typeout{command `pyrrolevi' is based on `fiveheterovi'.}\fi%
  1275. \fiveheterovi[#1]{1==N}{#2}}
  1276. \def\pyrazolevi{\@ifnextchar[{\@pyrazolevi}{\@pyrazolevi[bd]}}
  1277. \def\@pyrazolevi[#1]#2{%
  1278. %\iforigpt \typeout{command `pyrazolevi' is based on `fiveheterovi'.}\fi%
  1279. \fiveheterovi[#1]{1==N;2==N}{#2}}
  1280. \def\imidazolevi{\@ifnextchar[{\@imidazolevi}{\@imidazolevi[bd]}}
  1281. \def\@imidazolevi[#1]#2{%
  1282. %\iforigpt \typeout{command `imidazolevi' is based on `fiveheterovi'.}\fi%
  1283. \fiveheterovi[#1]{1==N;3==N}{#2}}
  1284. \def\isoxazolevi{\@ifnextchar[{\@isoxazolevi}{\@isoxazolevi[bd]}}
  1285. \def\@isoxazolevi[#1]#2{%
  1286. %\iforigpt \typeout{command `isoxazolevi' is based on `fiveheterovi'.}\fi%
  1287. \fiveheterovi[#1]{1==O;2==N}{#2}}
  1288. \def\oxazolevi{\@ifnextchar[{\@oxazolevi}{\@oxazolevi[bd]}}
  1289. \def\@oxazolevi[#1]#2{%
  1290. %\iforigpt \typeout{command `oxazolevi' is based on `fiveheterovi'.}\fi%
  1291. \fiveheterovi[#1]{1==O;3==N}{#2}}
  1292. %
  1293. % **************************
  1294. % * decahetero derivatives *
  1295. % *  (vertical type)       *
  1296. % **************************
  1297. % The following numbering is adopted in this macro. 
  1298. %
  1299. %          8 (10)1
  1300. %          *  8a *
  1301. %     7  *   * *   *  2
  1302. %       |     |     |
  1303. %       |     |     |
  1304. %     6  *   * *   *  3
  1305. %          *  4a *
  1306. %          5 (9) 4
  1307. %          ^
  1308. %          |
  1309. %          the original point
  1310. %
  1311. %   \decaheterov[BONDLIST]{ATOMLIST}{SUBSLIST}
  1312. %  
  1313. %     BONDLIST:  list of bonds 
  1314. %
  1315. %           none or r  :  decahetero (right-handed)
  1316. %           l          :  decahetero (left-handed)
  1317. %           H or []    :  fully saturated form
  1318. %           a    :  1,2-double bond      b    :  2,3-double bond
  1319. %           c    :  4,3-double bond      d    :  4,4a-double bond
  1320. %           e    :  4a,5-double bond     f    :  5,6-double bond
  1321. %           g    :  6,7-double bond      h    :  7,8-double bond
  1322. %           i    :  8,8a-double bond     j    :  1,8a-double bond
  1323. %           k    :  4a,8a-double bond
  1324. %           A    :  aromatic circle      B    :  aromatic circle
  1325. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  1326. %
  1327. %     ATOMLIST: list of heteroatoms (max 10 atoms)
  1328. %
  1329. %       for n = 1 to 8
  1330. %
  1331. %            n         : Hetero atom, e.g. N, O, etc. at n-position
  1332. %                        e.g. 1==N for N at 1-position
  1333. %            na        : Hetero atom at 4a or 8b (n=4 or 8)
  1334. %                        e.g. 4a==N (or 9==N) for N at 4a-position
  1335. %                             8a==N (or {{10}}==N) for N at 8a-position
  1336. %
  1337. %     SUBSLIST: list of substituents (max 8 substitution positions)
  1338. %
  1339. %       for n = 1 to 8
  1340. %
  1341. %           nD         :  exocyclic double bond at n-atom
  1342. %           n or nS    :  exocyclic single bond at n-atom
  1343. %           nA         :  alpha single bond at n-atom
  1344. %           nB         :  beta single bond at n-atom
  1345. %           nSA        :  alpha single bond at n-atom (boldface)
  1346. %           nSB        :  beta single bond at n-atom (dotted line)
  1347. %           nSa        :  alpha (not specified) single bond at n-atom
  1348. %           nSb        :  beta (not specified) single bond at n-atom
  1349. %
  1350. %       for 9 (4a position) and 10 (8a position)
  1351. %
  1352. %           nD         :  exocyclic double bond at n-atom
  1353. %           n or nS    :  exocyclic single bond at n-atom
  1354. %           nA         :  alpha single bond at n-atom
  1355. %           nB         :  beta single bond at n-atom
  1356. %
  1357. %       e.g. 
  1358. %        
  1359. %        \decaheterov{1==N}{1==Cl;2==F}
  1360. %        \decaheterov[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  1361. %        \decaheterov[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  1362. %
  1363. \def\decaheterov{\@ifnextchar[{\@decaheterov}{\@decaheterov[r]}}
  1364. \def\@decaheterov[#1]#2#3{%
  1365. %%%%%%%%%%%%%%%%%%%%%%%%%%
  1366. % treatment of atom list %
  1367. %%%%%%%%%%%%%%%%%%%%%%%%%%
  1368. \iniflag\iniatom%
  1369. \@forsemicol\member:=#2\do{%
  1370. \expandafter\@m@mb@r\member;\relax%
  1371. \expandafter\twoch@r\@membera{}%
  1372. \ifcase\@tmpa%
  1373.  \or \xdef\aaa{\@memberb}%1
  1374.  \or \xdef\bbb{\@memberb}%2
  1375.  \or \xdef\ccc{\@memberb}%3
  1376.  \or%
  1377.    \if\@tmpb a%
  1378.      \xdef\iii{\@memberb}%4a
  1379.    \else\ifx\@tmpb\empty%
  1380.      \xdef\ddd{\@memberb}%4
  1381.    \fi\fi%
  1382.  \or \xdef\eee{\@memberb}%5
  1383.  \or \xdef\fff{\@memberb}%6
  1384.  \or \xdef\ggg{\@memberb}%7
  1385.  \or%
  1386.    \if\@tmpb a%
  1387.      \xdef\jjj{\@memberb}%8a
  1388.    \else\ifx\@tmpb\empty%
  1389.      \xdef\hhh{\@memberb}%8
  1390.    \fi\fi%
  1391. \or \xdef\iii{\@memberb}%9 (= 4a)
  1392. \or \xdef\jjj{\@memberb}%10 (= 8a)
  1393. \fi}%
  1394.  \begin{picture}(1200,880)(-\shiftii,-\shifti)%
  1395.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  1396.            \put(-\noshift,-\noshift){\circle{50}}% 
  1397.    \typeout{command `decaheterov' origin: %
  1398.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  1399. %%%%%%%%%%%%%%%%%%
  1400. % outer skeleton %
  1401. %%%%%%%%%%%%%%%%%%
  1402. {\let\fff=\jjj \let\eee=\iii%
  1403.  \put(342,0){\skbonda}% bond between 1 and 2
  1404.  \put(342,0){\skbondb}% bond between 3 and 2
  1405.  \put(342,0){\skbondc}% bond between 4 and 3
  1406.  \put(342,0){\skbondf}% bond between 1 and 6
  1407.  \put(342,0){\skbondd}% bond between 4 and 4a
  1408.  \put(342,0){\skbonde}% bond between 4a and 8a
  1409. }%
  1410. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
  1411.  \let\ccc=\iii\let\bbb=\jjj%
  1412.  \put(0,0){\skbonda}% bond between 8 and 8a
  1413.  \put(0,0){\skbondc}% bond between 5 and 4a
  1414.  \put(0,0){\skbondf}% bond between 8 and 7
  1415.  \put(0,0){\skbondd}% bond between 5 and 6
  1416.  \put(0,0){\skbonde}% bond between 6 and 7
  1417. }%
  1418. %%%%%%%%%%%%%%%%%%%%%
  1419. % inner double bond %
  1420. %%%%%%%%%%%%%%%%%%%%%
  1421. \@tfor\member:=#1\do{%
  1422. \if\member r\relax%
  1423. {\let\fff=\jjj \let\eee=\iii%
  1424.  \put(342,0){\bonda}% bond between 1 and 2
  1425.  \put(342,0){\bondc}% bond between 3 and 4
  1426. }%
  1427. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
  1428.  \let\ccc=\iii\let\bbb=\jjj%
  1429.  \put(0,0){\bondb}% bond between 8a and 4a
  1430.  \put(0,0){\bondf}% bond between 8 and 7
  1431.  \put(0,0){\bondd}% bond between 5 and 6
  1432. }%
  1433. \else\if\member l\relax%
  1434. \else\if\member a\relax%
  1435.  \put(342,0){\bonda}% bond between 1 and 2
  1436. \else\if\member b\relax
  1437.  \put(342,0){\bondb}% bond between 2 and 3
  1438. \else\if\member c\relax
  1439.  \put(342,0){\bondc}% bond between 3 and 4
  1440. \else\if\member d\relax%
  1441. {\let\eee=\iii%
  1442.  \put(342,0){\bondd}% bond between 4 and 4a
  1443. }%
  1444. \else\if\member e\relax%
  1445. {\let\ccc=\iii \let\ddd=\eee%
  1446.  \put(0,0){\bondc}% bond between 5 and 4a
  1447. }%
  1448. \else\if\member f\relax%
  1449. {\let\ddd=\eee \let\eee=\fff%
  1450.  \put(0,0){\bondd}% bond between 5 and 6
  1451. }%
  1452. \else\if\member g\relax%
  1453. {\let\eee=\fff \let\fff=\ggg% 
  1454.  \put(0,0){\bonde}% bond between 6 and 7
  1455. }%
  1456. \else\if\member h\relax%
  1457. {\let\aaa=\hhh \let\fff=\ggg%
  1458.  \put(0,0){\bondf}% bond between 8 and 7
  1459. }%
  1460. \else\if\member i\relax%
  1461. {\let\aaa=\hhh \let\bbb=\jjj%
  1462.  \put(0,0){\bonda}% bond between 8 and 8a
  1463. }%
  1464. \else\if\member j\relax%
  1465. {\let\fff=\jjj%
  1466.  \put(342,0){\bondf}% bond between 1 and 8a
  1467. }%
  1468. \else\if\member k\relax%
  1469. {\let\ccc=\iii\let\bbb=\jjj%
  1470.  \put(0,0){\bondb}% bond between 8a and 4a
  1471. }%
  1472. \else\if\member A%left aromatic circle 
  1473.   \put(0,203){\circle{240}}               %circle
  1474. \else\if\member B%left aromatic circle 
  1475.   \put(342,203){\circle{240}}             %circle
  1476. \else \expandafter\twoch@@r\member{}{}%
  1477.   \def\aax{8a} \def\aay{4a}%
  1478.       \if\@@tmpa 1\relax%                  % plus charge etc.
  1479.         \putratom{304}{282}{\@@tmpb}%      % right type
  1480.       \else\if\@@tmpa 2\relax%
  1481.         \putratom{402}{253}{\@@tmpb}%      % right type
  1482.       \else\if\@@tmpa 3\relax%
  1483.         \putratom{402}{120}{\@@tmpb}%      % right type
  1484.       \else\if\@@tmpa 4\relax%
  1485.         \putratom{304}{68}{\@@tmpb}%       % right type
  1486.       \else\if\@@tmpa 6\relax%
  1487.         \putlatom{-60}{253}{\@@tmpb}%      % left type
  1488.       \else\if\@@tmpa 7\relax%
  1489.         \putlatom{-60}{120}{\@@tmpb}%      % left type
  1490.       \else\if\@@tmpa 8\relax%
  1491.         \putratom{-38}{282}{\@@tmpb}%      % right type
  1492.       \else\if\@@tmpa 10\relax%
  1493.         \putratom{60}{253}{\@@tmpb}%       % right type
  1494.       \else\ifx\@@tmpa\aax\relax%
  1495.         \putratom{60}{253}{\@@tmpb}%       % right type
  1496.       \else\ifx\@@tmpa\aay\relax%
  1497.         \putratom{60}{120}{\@@tmpb}%       % right type
  1498.       \else\if\@@tmpa 9\relax%
  1499.         \putratom{60}{120}{\@@tmpb}%       % right type
  1500.       \else\if\@@tmpa 5\relax%
  1501.         \putratom{-38}{68}{\@@tmpb}%       % right type
  1502.       \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
  1503. \fi\fi\fi\fi\fi\fi\fi\fi\fi%
  1504. \fi\fi\fi\fi\fi\fi%
  1505. }%
  1506. %%%%%%%%%%%%%%%%%%%%%%%%
  1507. % setting hetero atoms %
  1508. %%%%%%%%%%%%%%%%%%%%%%%%
  1509. % hetero atom on 1
  1510. \ifx\aaa\empty\else%
  1511.      \@acliptrue%
  1512.      \putratom{311}{356}{\aaa}%  % right type
  1513. \fi%
  1514. % hetero atom on 2
  1515. \ifx\bbb\empty\else%
  1516.      \@bcliptrue%
  1517.      \putratom{477}{280}{\bbb}%  % right type
  1518. \fi%
  1519. % hetero atom on 3
  1520. \ifx\ccc\empty\else%
  1521.      \@ccliptrue%
  1522.      \putratom{477}{65}{\ccc}%   % right type
  1523. \fi%
  1524. % hetero atom on 4
  1525. \ifx\ddd\empty\else%
  1526.    \@cliptrue%
  1527.    \putratom{311}{-10}{\ddd}%  % right type
  1528. \fi%
  1529. % hetero atom on 4a
  1530. {\let\eee=\iii%
  1531. \ifx\eee\empty\else%
  1532.      \global\@icliptrue%
  1533.      \putlatom{207}{65}{\iii}%  % left type
  1534. \fi%
  1535. }%
  1536. % hetero atom on 8a
  1537. {\let\fff=\jjj%
  1538. \ifx\fff\empty\else%
  1539.      \global\@jcliptrue%
  1540.      \putlatom{207}{280}{\jjj}% % left type
  1541. \fi%
  1542. }%
  1543. % hetero atom on 5
  1544. {\let\ddd=\eee%
  1545. \ifx\ddd\empty\else
  1546.    \global\@ecliptrue%
  1547.    \putratom{-31}{-10}{\eee}%  % right type
  1548. \fi%
  1549. }%
  1550. % hetero atom on 6
  1551. {\let\eee=\fff%
  1552. \ifx\eee\empty\else%
  1553.      \global\@fcliptrue%
  1554.      \putlatom{-135}{65}{\fff}%  % left type
  1555. \fi%
  1556. }%
  1557. % hetero atom on 7
  1558. {\let\fff=\ggg%
  1559. \ifx\fff\empty\else%
  1560.      \global\@gcliptrue%
  1561.      \putlatom{-135}{280}{\ggg}% % left type
  1562. \fi%
  1563. }%
  1564. % hetero atom on 8
  1565. {\let\aaa=\hhh%
  1566. \ifx\aaa\empty\else%
  1567.      \global\@hcliptrue%
  1568.      \putratom{-31}{356}{\hhh}%  % right type
  1569. \fi%
  1570. }%
  1571. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1572. % setting substituents and exocyclic bonds %
  1573. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1574. \put(342,0){\setsixringv{#3}{0}{0}{5}{0}}% %substituents on 1 to 4
  1575. {\@clipfalse \if@eclip \@cliptrue \fi%   %substituents on 5 to 7
  1576.  \@eclipfalse \if@fclip \@ecliptrue \fi%
  1577.  \@fclipfalse \if@gclip \@fcliptrue \fi%
  1578. \put(0,0){\setsixringv{#3}{-1}{3}{7}{0}}%
  1579. }%
  1580. {\@aclipfalse \if@hclip \@acliptrue \fi%   %substituent on 8
  1581. \put(0,0){\setsixringv{#3}{-7}{0}{2}{0}}%
  1582. }%
  1583. {\@clipfusefalse \if@iclip \@clipfusetrue \fi%
  1584.  \put(171,103){\setatombond{#3}{-8}{7}}%   %9 %for 4a position
  1585. }%
  1586. {\@clipfusefalse \if@jclip \@clipfusetrue \fi%
  1587.   \put(171,303){\setatombond{#3}{-9}{1}}%  %10 for 8a position
  1588. }%
  1589. \end{picture}\iniatom\iniflag}%               %end of \decaheterov macro
  1590. %
  1591. % **********************************
  1592. % * decahetero derivatives         *
  1593. % *  (vertical type, inverse type) *
  1594. % **********************************
  1595. % The following numbering is adopted in this macro. 
  1596. %
  1597. %          5 (9) 4
  1598. %          *  4a *
  1599. %     6  *   * *   *  3
  1600. %       |     |     |
  1601. %       |     |     |
  1602. %     7  *   * *   *  2
  1603. %          *  8a *
  1604. %          8 (10)1
  1605. %          ^
  1606. %          |
  1607. %          the original point
  1608. %
  1609. %   \decaheterovi[BONDLIST]{ATOMLIST}{SUBSLIST}
  1610. %  
  1611. %     BONDLIST:  list of bonds 
  1612. %
  1613. %           none or r  :  decahetero (right-handed)
  1614. %           l          :  decahetero (left-handed)
  1615. %           H or []    :  fully saturated form
  1616. %           a    :  1,2-double bond      b    :  2,3-double bond
  1617. %           c    :  4,3-double bond      d    :  4,4a-double bond
  1618. %           e    :  4a,5-double bond     f    :  5,6-double bond
  1619. %           g    :  6,7-double bond      h    :  7,8-double bond
  1620. %           i    :  8,8a-double bond     j    :  1,8a-double bond
  1621. %           k    :  4a,8a-double bond
  1622. %           A    :  aromatic circle      B    :  aromatic circle
  1623. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  1624. %
  1625. %     ATOMLIST: list of heteroatoms (max 10 atoms)
  1626. %
  1627. %       for n = 1 to 8
  1628. %
  1629. %            n         : Hetero atom, e.g. N, O, etc. at n-position
  1630. %                        e.g. 1==N for N at 1-position
  1631. %            na        : Hetero atom at 4a or 8b (n=4 or 8)
  1632. %                        e.g. 4a==N (or 9==N) for N at 4a-position
  1633. %                             8a==N (or {{10}}==N) for N at 8a-position
  1634. %
  1635. %     SUBSLIST: list of substituents (max 8 substitution positions)
  1636. %
  1637. %       for n = 1 to 8
  1638. %
  1639. %           nD         :  exocyclic double bond at n-atom
  1640. %           n or nS    :  exocyclic single bond at n-atom
  1641. %           nA         :  alpha single bond at n-atom
  1642. %           nB         :  beta single bond at n-atom
  1643. %           nSA        :  alpha single bond at n-atom (boldface)
  1644. %           nSB        :  beta single bond at n-atom (dotted line)
  1645. %           nSa        :  alpha (not specified) single bond at n-atom
  1646. %           nSb        :  beta (not specified) single bond at n-atom
  1647. %
  1648. %       for 9 (4a position) and 10 (8a position)
  1649. %
  1650. %           nD         :  exocyclic double bond at n-atom
  1651. %           n or nS    :  exocyclic single bond at n-atom
  1652. %           nA         :  alpha single bond at n-atom
  1653. %           nB         :  beta single bond at n-atom
  1654. %
  1655. %       e.g. 
  1656. %        
  1657. %        \decaheterovi{1==N}{1==Cl;2==F}
  1658. %        \decaheterovi[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  1659. %        \decaheterovi[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  1660. %
  1661. \def\decaheterovi{\@ifnextchar[{\@decaheterovi}{\@decaheterovi[r]}}
  1662. \def\@decaheterovi[#1]#2#3{%
  1663. %%%%%%%%%%%%%%%%%%%%%%%%%%
  1664. % treatment of atom list %
  1665. %%%%%%%%%%%%%%%%%%%%%%%%%%
  1666. \iniflag\iniatom%
  1667. \@forsemicol\member:=#2\do{%
  1668. \expandafter\@m@mb@r\member;\relax%
  1669. \expandafter\twoch@r\@membera{}%
  1670. \ifcase\@tmpa%
  1671.  \or \xdef\ddd{\@memberb}%1
  1672.  \or \xdef\ccc{\@memberb}%2
  1673.  \or \xdef\bbb{\@memberb}%3
  1674.  \or%
  1675.    \if\@tmpb a%
  1676.      \xdef\jjj{\@memberb}%4a
  1677.    \else\ifx\@tmpb\empty%
  1678.      \xdef\aaa{\@memberb}%4
  1679.    \fi\fi%
  1680.  \or \xdef\hhh{\@memberb}%5
  1681.  \or \xdef\ggg{\@memberb}%6
  1682.  \or \xdef\fff{\@memberb}%7
  1683.  \or%
  1684.    \if\@tmpb a%
  1685.      \xdef\iii{\@memberb}%8a
  1686.    \else\ifx\@tmpb\empty%
  1687.      \xdef\eee{\@memberb}%8
  1688.    \fi\fi%
  1689. \or \xdef\jjj{\@memberb}%9 (= 4a)
  1690. \or \xdef\iii{\@memberb}%10 (= 8a)
  1691. \fi}%
  1692.  \begin{picture}(1200,880)(-\shiftii,-\shifti)%
  1693.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  1694.            \put(-\noshift,-\noshift){\circle{50}}% 
  1695.    \typeout{command `decaheterovi' origin: %
  1696.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  1697. %%%%%%%%%%%%%%%%%%
  1698. % outer skeleton %
  1699. %%%%%%%%%%%%%%%%%%
  1700. {\let\fff=\jjj \let\eee=\iii%
  1701.  \put(342,0){\skbonda}% bond between 1 and 2
  1702.  \put(342,0){\skbondb}% bond between 3 and 2
  1703.  \put(342,0){\skbondc}% bond between 4 and 3
  1704.  \put(342,0){\skbondf}% bond between 1 and 6
  1705.  \put(342,0){\skbondd}% bond between 4 and 4a
  1706.  \put(342,0){\skbonde}% bond between 4a and 8a
  1707. }%
  1708. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
  1709.  \let\ccc=\iii\let\bbb=\jjj%
  1710.  \put(0,0){\skbonda}% bond between 8 and 8a
  1711.  \put(0,0){\skbondc}% bond between 5 and 4a
  1712.  \put(0,0){\skbondf}% bond between 8 and 7
  1713.  \put(0,0){\skbondd}% bond between 5 and 6
  1714.  \put(0,0){\skbonde}% bond between 6 and 7
  1715. }%
  1716. %%%%%%%%%%%%%%%%%%%%%
  1717. % inner double bond %
  1718. %%%%%%%%%%%%%%%%%%%%%
  1719. \@tfor\member:=#1\do{%
  1720. \if\member r\relax%
  1721. {\let\fff=\jjj \let\eee=\iii%
  1722.  \put(342,0){\bonda}% bond between 1 and 2
  1723.  \put(342,0){\bondc}% bond between 3 and 4
  1724. }%
  1725. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
  1726.  \let\ccc=\iii\let\bbb=\jjj%
  1727.  \put(0,0){\bondb}% bond between 8a and 4a
  1728.  \put(0,0){\bondf}% bond between 8 and 7
  1729.  \put(0,0){\bondd}% bond between 5 and 6
  1730. }%
  1731. \else\if\member l\relax%
  1732. \else\if\member a\relax%
  1733.  \put(342,0){\bondc}% bond between 3 and 4
  1734. \else\if\member b\relax%
  1735.  \put(342,0){\bondb}% bond between 2 and 3
  1736. \else\if\member c\relax%
  1737.  \put(342,0){\bonda}% bond between 1 and 2
  1738. \else\if\member d\relax%
  1739. {\let\fff=\jjj%
  1740.  \put(342,0){\bondf}% bond between 1 and 8a
  1741. }%
  1742. \else\if\member e\relax%
  1743. {\let\aaa=\hhh \let\bbb=\jjj%
  1744.  \put(0,0){\bonda}% bond between 8 and 8a
  1745. }%
  1746. \else\if\member f\relax%
  1747. {\let\aaa=\hhh \let\fff=\ggg%
  1748.  \put(0,0){\bondf}% bond between 8 and 7
  1749. }%
  1750. \else\if\member g\relax%
  1751. {\let\eee=\fff \let\fff=\ggg% 
  1752.  \put(0,0){\bonde}% bond between 6 and 7
  1753. }%
  1754. \else\if\member h\relax%
  1755. {\let\ddd=\eee \let\eee=\fff%
  1756.  \put(0,0){\bondd}% bond between 5 and 6
  1757. }%
  1758. \else\if\member i\relax%
  1759. {\let\ccc=\iii \let\ddd=\eee%
  1760.  \put(0,0){\bondc}% bond between 5 and 4a
  1761. }%
  1762. \else\if\member j\relax%
  1763. {\let\eee=\iii%
  1764.  \put(342,0){\bondd}% bond between 4 and 4a
  1765. }%
  1766. \else\if\member k\relax%
  1767. {\let\ccc=\iii\let\bbb=\jjj%
  1768.  \put(0,0){\bondb}% bond between 8a and 4a
  1769. }%
  1770. \else\if\member A%left aromatic circle 
  1771.   \put(0,203){\circle{240}}               %circle
  1772. \else\if\member B%left aromatic circle 
  1773.   \put(342,203){\circle{240}}             %circle
  1774. \else \expandafter\twoch@@r\member{}{}%
  1775.   \def\aax{4a} \def\aay{8a}%
  1776.       \if\@@tmpa 4\relax%                  % plus charge etc.
  1777.         \putratom{304}{282}{\@@tmpb}%      % right type
  1778.       \else\if\@@tmpa 3\relax%
  1779.         \putratom{402}{253}{\@@tmpb}%      % right type
  1780.       \else\if\@@tmpa 2\relax%
  1781.         \putratom{402}{120}{\@@tmpb}%      % right type
  1782.       \else\if\@@tmpa 1\relax%
  1783.         \putratom{304}{68}{\@@tmpb}%       % right type
  1784.       \else\if\@@tmpa 7\relax%
  1785.         \putlatom{-60}{253}{\@@tmpb}%      % left type
  1786.       \else\if\@@tmpa 6\relax%
  1787.         \putlatom{-60}{120}{\@@tmpb}%      % left type
  1788.       \else\if\@@tmpa 5\relax%
  1789.         \putratom{-38}{282}{\@@tmpb}%      % right type
  1790.       \else\if\@@tmpa 9\relax%
  1791.         \putratom{60}{253}{\@@tmpb}%       % right type
  1792.       \else\ifx\@@tmpa\aax\relax%
  1793.         \putratom{60}{253}{\@@tmpb}%       % right type
  1794.       \else\ifx\@@tmpa\aay\relax%
  1795.         \putratom{60}{120}{\@@tmpb}%       % right type
  1796.       \else\if\@@tmpa 10\relax%
  1797.         \putratom{60}{120}{\@@tmpb}%       % right type
  1798.       \else\if\@@tmpa 8\relax%
  1799.         \putratom{-38}{68}{\@@tmpb}%       % right type
  1800.       \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
  1801. \fi\fi\fi\fi\fi\fi\fi\fi\fi%
  1802. \fi\fi\fi\fi\fi\fi%
  1803. }%
  1804. %%%%%%%%%%%%%%%%%%%%%%%%
  1805. % setting hetero atoms %
  1806. %%%%%%%%%%%%%%%%%%%%%%%%
  1807. % hetero atom on 1
  1808. \ifx\aaa\empty\else%
  1809.      \@acliptrue%
  1810.      \putratom{311}{356}{\aaa}%  % right type
  1811. \fi%
  1812. % hetero atom on 2
  1813. \ifx\bbb\empty\else%
  1814.      \@bcliptrue%
  1815.      \putratom{477}{280}{\bbb}%  % right type
  1816. \fi%
  1817. % hetero atom on 3
  1818. \ifx\ccc\empty\else%
  1819.      \@ccliptrue%
  1820.      \putratom{477}{65}{\ccc}%   % right type
  1821. \fi%
  1822. % hetero atom on 4
  1823. \ifx\ddd\empty\else%
  1824.    \@cliptrue%
  1825.    \putratom{311}{-10}{\ddd}%  % right type
  1826. \fi%
  1827. % hetero atom on 4a
  1828. {\let\eee=\iii%
  1829. \ifx\eee\empty\else%
  1830.      \global\@icliptrue%
  1831.      \putlatom{207}{65}{\iii}%  % left type
  1832. \fi%
  1833. }%
  1834. % hetero atom on 8a
  1835. {\let\fff=\jjj%
  1836. \ifx\fff\empty\else%
  1837.      \global\@jcliptrue%
  1838.      \putlatom{207}{280}{\jjj}% % left type
  1839. \fi%
  1840. }%
  1841. % hetero atom on 5
  1842. {\let\ddd=\eee%
  1843. \ifx\ddd\empty\else%
  1844.    \global\@ecliptrue%
  1845.    \putratom{-31}{-10}{\eee}%  % right type
  1846. \fi%
  1847. }%
  1848. % hetero atom on 6
  1849. {\let\eee=\fff%
  1850. \ifx\eee\empty\else%
  1851.      \global\@fcliptrue%
  1852.      \putlatom{-135}{65}{\fff}%  % left type
  1853. \fi%
  1854. }%
  1855. % hetero atom on 7
  1856. {\let\fff=\ggg%
  1857. \ifx\fff\empty\else%
  1858.      \global\@gcliptrue%
  1859.      \putlatom{-135}{280}{\ggg}% % left type
  1860. \fi%
  1861. }%
  1862. % hetero atom on 8
  1863. {\let\aaa=\hhh%
  1864. \ifx\aaa\empty\else%
  1865.      \global\@hcliptrue%
  1866.      \putratom{-31}{356}{\hhh}%  % right type
  1867. \fi%
  1868. }%
  1869. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1870. % setting substituents and exocyclic bonds %
  1871. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1872. \put(342,0){\setsixringv{#3}{5}{0}{5}{-1}}% %substituents on 1 to 4
  1873. {\@clipfalse \if@eclip \@cliptrue \fi%      %substituents on 6 to 8
  1874.  \@eclipfalse \if@fclip \@ecliptrue \fi%
  1875.  \@fclipfalse \if@gclip \@fcliptrue \fi%
  1876. \put(0,0){\setsixringv{#3}{12}{3}{7}{-1}}%
  1877. }
  1878. {\@aclipfalse \if@hclip \@acliptrue \fi%    %substituent on 5
  1879. \put(0,0){\setsixringv{#3}{-4}{0}{2}{0}}%
  1880. }%
  1881. {\@clipfusefalse \if@iclip \@clipfusetrue \fi%
  1882.  \put(171,103){\setatombond{#3}{-9}{7}}%    %10 for 8a position
  1883. }%
  1884. {\@clipfusefalse \if@jclip \@clipfusetrue \fi%
  1885.   \put(171,303){\setatombond{#3}{-8}{1}}%   %9 for 4a position
  1886. }%
  1887. \end{picture}\iniatom\iniflag}%             %end of \decaheterovi macro
  1888. %
  1889. % ****************************************************
  1890. % * heterocycles having two fused six-membered rings *
  1891. % *  (vertical type)                                 *
  1892. % ****************************************************
  1893. %
  1894. %   \quinolinev[BONDLIST]{SUBSLIST}
  1895. %   \quinolinevi[BONDLIST]{SUBSLIST}
  1896. %   \isoquinolinev[BONDLIST]{SUBSLIST}
  1897. %   \isoquinolinevi[BONDLIST]{SUBSLIST}
  1898. %   \quinoxalinev[BONDLIST]{SUBSLIST}
  1899. %   \quinazolinev[BONDLIST]{SUBSLIST}
  1900. %   \quinazolinevi[BONDLIST]{SUBSLIST}
  1901. %   \cinnolinev[BONDLIST]{SUBSLIST}
  1902. %   \cinnolinevi[BONDLIST]{SUBSLIST}
  1903. %   \pteridinev[BONDLIST]{SUBSLIST}
  1904. %   \pteridinevi[BONDLIST]{SUBSLIST}
  1905. %  
  1906. %     BONDLIST:  list of bonds 
  1907. %
  1908. %           none or r  :  decahetero (right-handed)
  1909. %           l          :  decahetero (left-handed)
  1910. %           H or []    :  fully saturated form
  1911. %           a    :  1,2-double bond      b    :  2,3-double bond
  1912. %           c    :  4,3-double bond      d    :  4,4a-double bond
  1913. %           e    :  4a,5-double bond     f    :  5,6-double bond
  1914. %           g    :  6,7-double bond      h    :  7,8-double bond
  1915. %           i    :  8,8a-double bond     j    :  1,8a-double bond
  1916. %           k    :  4a,8a-double bond
  1917. %           A    :  aromatic circle      B    :  aromatic circle
  1918. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  1919. %
  1920. %     SUBSLIST: list of substituents (max 6 substitution positions)
  1921. %
  1922. %       for n = 1 to 8
  1923. %
  1924. %           nD         :  exocyclic double bond at n-atom
  1925. %           n or nS    :  exocyclic single bond at n-atom
  1926. %           nA         :  alpha single bond at n-atom
  1927. %           nB         :  beta single bond at n-atom
  1928. %           nSA        :  alpha single bond at n-atom (boldface)
  1929. %           nSB        :  beta single bond at n-atom (dotted line)
  1930. %           nSa        :  alpha (not specified) single bond at n-atom
  1931. %           nSb        :  beta (not specified) single bond at n-atom
  1932. %
  1933. %       for 9 (4a position) and 10 (8a position)
  1934. %
  1935. %           nD         :  exocyclic double bond at n-atom
  1936. %           n or nS    :  exocyclic single bond at n-atom
  1937. %           nA         :  alpha single bond at n-atom
  1938. %           nB         :  beta single bond at n-atom
  1939. %
  1940. %       e.g. 
  1941. %        
  1942. %        \decaheterov{1==N}{1==Cl;2==F}
  1943. %        \decaheterov[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  1944. %        \decaheterov[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  1945. %
  1946. \def\quinolinev{\@ifnextchar[{\@quinolinev}{\@quinolinev[acfhk]}}
  1947. \def\@quinolinev[#1]#2{%
  1948. \iforigpt \typeout{command `quinolinev' is based on `decaheterov'.}\fi%
  1949. \decaheterov[#1]{1==N}{#2}}
  1950. \def\quinolinevi{\@ifnextchar[{\@quinolinevi}{\@quinolinevi[acfhk]}}
  1951. \def\@quinolinevi[#1]#2{%
  1952. \iforigpt \typeout{command `quinolinevi' is based on `decaheterovi'.}\fi%
  1953. \decaheterovi[#1]{1==N}{#2}}
  1954. %
  1955. \def\isoquinolinev{\@ifnextchar[{\@isoquinolinev}{\@isoquinolinev[acfhk]}}
  1956. \def\@isoquinolinev[#1]#2{%
  1957. \iforigpt \typeout{command `isoquinolinev' is based on `decaheterov'.}\fi%
  1958. \decaheterov[#1]{2==N}{#2}}
  1959. \def\isoquinolinevi{\@ifnextchar[{\@isoquinolinevi}{\@isoquinolinevi[acfhk]}}
  1960. \def\@isoquinolinevi[#1]#2{%
  1961. \iforigpt \typeout{command `isoquinolinevi' is based on `decaheterovi'.}\fi%
  1962. \decaheterovi[#1]{2==N}{#2}}
  1963. %
  1964. \def\quinoxalinev{\@ifnextchar[{\@quinoxalinev}{\@quinoxalinev[acfhk]}}
  1965. \def\@quinoxalinev[#1]#2{%
  1966. \iforigpt \typeout{command `quinoxalinev' is based on `decaheterov'.}\fi%
  1967. \decaheterov[#1]{1==N;4==N}{#2}}
  1968. %
  1969. \def\quinazolinev{\@ifnextchar[{\@quinazolinev}{\@quinazolinev[acfhk]}}
  1970. \def\@quinazolinev[#1]#2{%
  1971. \iforigpt \typeout{command `quinazolinev' is based on `decaheterov'.}\fi%
  1972. \decaheterov[#1]{1==N;3==N}{#2}}
  1973. \def\quinazolinevi{\@ifnextchar[{\@quinazolinevi}{\@quinazolinevi[acfhk]}}
  1974. \def\@quinazolinevi[#1]#2{%
  1975. \iforigpt \typeout{command `quinazolinevu' is based on `decaheterovi'.}\fi%
  1976. \decaheterovi[#1]{1==N;3==N}{#2}}
  1977. %
  1978. \def\cinnolinev{\@ifnextchar[{\@cinnolinev}{\@cinnolinev[acfhk]}}
  1979. \def\@cinnolinev[#1]#2{%
  1980. \iforigpt \typeout{command `cinnolinev' is based on `decaheterov'.}\fi%
  1981. \decaheterov[#1]{1==N;2==N}{#2}}
  1982. \def\cinnolinevi{\@ifnextchar[{\@cinnolinevi}{\@cinnolinevi[acfhk]}}
  1983. \def\@cinnolinevi[#1]#2{%
  1984. \iforigpt \typeout{command `cinnolinev' is based on `decaheterovi'.}\fi%
  1985. \decaheterovi[#1]{1==N;2==N}{#2}}
  1986. %
  1987. \def\pteridinev{\@ifnextchar[{\@pteridinev}{\@pteridinev[acfhk]}}
  1988. \def\@pteridinev[#1]#2{%
  1989. \iforigpt \typeout{command `pteridinev' is based on `decaheterov'.}\fi%
  1990. \decaheterov[#1]{1==N;3==N;5==N;8==N}{#2}}
  1991. \def\pteridinevi{\@ifnextchar[{\@pteridinevi}{\@pteridinevi[acfhk]}}
  1992. \def\@pteridinevi[#1]#2{%
  1993. \iforigpt \typeout{command `pteridinevi' is based on `decaheterovi'.}\fi%
  1994. \decaheterovi[#1]{1==N;3==N;5==N;8==N}{#2}}
  1995. %
  1996. % **************************
  1997. % * nonahetero derivatives *
  1998. % *  (vertical type)       *
  1999. % **************************
  2000. % The following numbering is adopted in this macro. 
  2001. %
  2002. %          4
  2003. %          *  3a(8) 
  2004. %     5  *   * _____  3
  2005. %       |     |     |
  2006. %       |     |     |
  2007. %     6  *   * *   *  2
  2008. %          *  7a *
  2009. %          7 (9) 1
  2010. %          ^
  2011. %          |
  2012. %          the original point
  2013. %
  2014. %   \nonaheterov[BONDLIST]{ATOMLIST}{SUBSLIST}
  2015. %  
  2016. %     BONDLIST:  list of bonds 
  2017. %
  2018. %           none or r  :  aromatic six-membered ring
  2019. %           H or []    :  fully saturated form
  2020. %           a    :  1,2-double bond      b    :  2,3-double bond
  2021. %           c    :  3,3a-double bond     d    :  4,3a-double bond
  2022. %           e    :  4,5-double bond      f    :  5,6-double bond
  2023. %           g    :  6,7-double bond      h    :  7,7a-double bond
  2024. %           i    :  1,7a-double bond     j    :  3a,4a-double bond
  2025. %           A    :  aromatic circle (six-membered ring)
  2026. %           B    :  aromatic circle (five-membered ring)
  2027. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 7)
  2028. %
  2029. %     ATOMLIST: list of heteroatoms (max 9 atoms)
  2030. %
  2031. %       for n = 1 to 7
  2032. %
  2033. %            n         : Hetero atom, e.g. N, O, etc. at n-position
  2034. %                        e.g. 1==N for N at 1-position
  2035. %            na        : Hetero atom at 3a or 7b (n=3 or 7)
  2036. %                        e.g. 3a==N (or 8==N) for N at 4a-position
  2037. %                             7a==N (or 9==N) for N at 8a-position
  2038. %
  2039. %     SUBSLIST: list of substituents (max 7 substitution positions)
  2040. %
  2041. %       for n = 1 to 8
  2042. %
  2043. %           nD         :  exocyclic double bond at n-atom
  2044. %           n or nS    :  exocyclic single bond at n-atom
  2045. %           nA         :  alpha single bond at n-atom
  2046. %           nB         :  beta single bond at n-atom
  2047. %           nSA        :  alpha single bond at n-atom (boldface)
  2048. %           nSB        :  beta single bond at n-atom (dotted line)
  2049. %           nSa        :  alpha (not specified) single bond at n-atom
  2050. %           nSb        :  beta (not specified) single bond at n-atom
  2051. %
  2052. %       for 8 (3a position) and 9 (7a position)
  2053. %
  2054. %           nD         :  exocyclic double bond at n-atom
  2055. %           n or nS    :  exocyclic single bond at n-atom
  2056. %           nA         :  alpha single bond at n-atom
  2057. %           nB         :  beta single bond at n-atom
  2058. %
  2059. %       e.g. 
  2060. %        
  2061. %        \nonaheterov{1==N}{1==Cl;2==F}
  2062. %        \nonaheterov[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  2063. %
  2064. \def\nonaheterov{\@ifnextchar[{\@nonaheterov}{\@nonaheterov[r]}}
  2065. \def\@nonaheterov[#1]#2#3{%
  2066. %%%%%%%%%%%%%%%%%%%%%%%%%%
  2067. % treatment of atom list %
  2068. %%%%%%%%%%%%%%%%%%%%%%%%%%
  2069. \iniflag\iniatom%
  2070. \@forsemicol\member:=#2\do{%
  2071. \expandafter\@m@mb@r\member;\relax%
  2072. \expandafter\twoch@r\@membera{}%
  2073. \ifcase\@tmpa%
  2074.  \or \xdef\ddd{\@memberb}%1
  2075.  \or \xdef\ccc{\@memberb}%2
  2076.  \or%
  2077.    \if\@tmpb a%
  2078.      \xdef\jjj{\@memberb}%3a
  2079.    \else\ifx\@tmpb\empty%
  2080.      \xdef\bbb{\@memberb}%3
  2081.    \fi\fi
  2082.  \or \xdef\hhh{\@memberb}%4
  2083.  \or \xdef\ggg{\@memberb}%5
  2084.  \or \xdef\fff{\@memberb}%6
  2085.  \or% 
  2086.    \if\@tmpb a%
  2087.      \xdef\iii{\@memberb}%7a
  2088.    \else\ifx\@tmpb\empty%
  2089.      \xdef\eee{\@memberb}%7
  2090.    \fi\fi
  2091. \or \xdef\jjj{\@memberb}%8 (= 3a)
  2092. \or \xdef\iii{\@memberb}%9 (= 7a)
  2093. \fi}%
  2094.  \begin{picture}(1200,880)(-\shiftii,-\shifti)%
  2095.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  2096.            \put(-\noshift,-\noshift){\circle{50}}% 
  2097.    \typeout{command `nonaheterov' origin: %
  2098.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  2099. %%%%%%%%%%%%%%%%%%
  2100. % outer skeleton %
  2101. %%%%%%%%%%%%%%%%%%
  2102. {\let\fff=\jjj \let\eee=\iii%
  2103.  \put(342,0){\skbondb}% bond between 2 and 3  3 and 2
  2104.  \put(342,0){\skbondc}% bond between 1 and 2  4 and 3
  2105.  \put(342,0){\skbondd}% bond between 7a and 3a  4 and 4a
  2106.  \put(342,0){\skbonde}% bond between 1 and 7a  4a and 8a
  2107.  \put(342,0){\skbondhoriz}% bond between 3 and 3a
  2108. }%
  2109. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
  2110.  \let\ccc=\iii\let\bbb=\jjj%
  2111.  \put(0,0){\skbonda}% bond between 4 and 3a 8 and 8a
  2112.  \put(0,0){\skbondc}% bond between 7 and 7a 5 and 4a
  2113.  \put(0,0){\skbondf}% bond between 4 and 5 8 and 7
  2114.  \put(0,0){\skbondd}% bond between 7 and 6 5 and 6
  2115.  \put(0,0){\skbonde}% bond between 5 and 6 6 and 7
  2116. }%
  2117. %%%%%%%%%%%%%%%%%%%%%
  2118. % inner double bond %
  2119. %%%%%%%%%%%%%%%%%%%%%
  2120. \@tfor\member:=#1\do{%
  2121. \if\member r\relax%
  2122. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
  2123.  \let\ccc=\iii\let\bbb=\jjj%
  2124.  \put(0,0){\bondb}% bond between 3a and 7a
  2125.  \put(0,0){\bondf}% bond between 4 and 5
  2126.  \put(0,0){\bondd}% bond between 6 and 7
  2127. }%
  2128. \else\if\member l\relax%
  2129. \else\if\member a\relax%
  2130.  \put(342,0){\bondc}% bond between 3 and 4
  2131. \else\if\member b\relax%
  2132.  \put(342,0){\bondb}% bond between 2 and 3
  2133. \else\if\member c\relax%
  2134.  \put(342,0){\bondhoriz}% bond between 3 and 3a
  2135. \else\if\member d\relax%
  2136. {\let\aaa=\hhh \let\bbb=\jjj%
  2137.  \put(0,0){\bonda}% bond between 4 and 3a
  2138. }
  2139. \else\if\member e\relax%
  2140. {\let\aaa=\hhh \let\fff=\ggg%
  2141.  \put(0,0){\bondf}% bond between 4 and 5
  2142. }%
  2143. \else\if\member f\relax%
  2144. {\let\eee=\fff \let\fff=\ggg%
  2145.  \put(0,0){\bonde}% bond between 5 and 6
  2146. }%
  2147. \else\if\member g\relax%
  2148. {\let\ddd=\eee \let\eee=\fff%
  2149.  \put(0,0){\bondd}% bond between 6 and 7
  2150. }%
  2151. \else\if\member h\relax%
  2152. {\let\ccc=\iii \let\ddd=\eee%
  2153.  \put(0,0){\bondc}% bond between 7 and 7a
  2154. }%
  2155. \else\if\member i\relax%
  2156. {\let\eee=\iii%
  2157.  \put(342,0){\bondd}% bond between 1 and 7a
  2158. }%
  2159. \else\if\member j\relax%
  2160. {\let\ccc=\iii\let\bbb=\jjj%
  2161.  \put(0,0){\bondb}% bond between 7a and 3a
  2162. }%
  2163. \else\if\member A%left aromatic circle 
  2164.   \put(0,203){\circle{240}}               %circle
  2165. \else\if\member B%left aromatic circle 
  2166.   \put(342,173){\circle{180}}               %circle 1993/11/20 S.Fujita
  2167. \else \expandafter\twoch@@r\member{}{}%
  2168.   \def\aax{7a} \def\aay{3a}%
  2169.       \if\@@tmpa 1\relax%
  2170.         \putratom{304}{68}{\@@tmpb}%       % right type
  2171.       \else\if\@@tmpa 2\relax%
  2172.         \putratom{402}{120}{\@@tmpb}%      % right type
  2173.       \else\if\@@tmpa 3\relax%
  2174.         \putratom{402}{253}{\@@tmpb}%      % right type
  2175.       \else\if\@@tmpa 4\relax%
  2176.         \putratom{-38}{282}{\@@tmpb}%      % right type
  2177.       \else\if\@@tmpa 5\relax%
  2178.         \putlatom{-60}{120}{\@@tmpb}%      % left type
  2179.       \else\if\@@tmpa 6\relax%
  2180.         \putlatom{-60}{253}{\@@tmpb}%      % left type
  2181.       \else\if\@@tmpa 7\relax%
  2182.         \putratom{-38}{68}{\@@tmpb}%       % right type
  2183.       \else\if\@@tmpa 8\relax%
  2184.         \putratom{60}{253}{\@@tmpb}%       % right type
  2185.       \else\ifx\@@tmpa\aax\relax%
  2186.         \putratom{60}{253}{\@@tmpb}%       % right type
  2187.       \else\ifx\@@tmpa\aay\relax%
  2188.         \putratom{60}{120}{\@@tmpb}%       % right type
  2189.       \else\if\@@tmpa 9\relax%
  2190.         \putratom{60}{120}{\@@tmpb}%       % right type
  2191.       \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
  2192. \fi\fi\fi\fi\fi\fi\fi\fi%
  2193. \fi\fi\fi\fi\fi\fi%
  2194. }%
  2195. %%%%%%%%%%%%%%%%%%%%%%%%
  2196. % setting hetero atoms %
  2197. %%%%%%%%%%%%%%%%%%%%%%%%
  2198. % hetero atom on 1
  2199. %\ifx\aaa\empty\else%
  2200. %     \@acliptrue
  2201. %     \putratom{311}{356}{\aaa}%  % right type
  2202. %\fi
  2203. % hetero atom on 1%4
  2204. \ifx\ddd\empty\else%
  2205.    \@cliptrue% 
  2206.    \putratom{311}{-10}{\ddd}%     % right type
  2207. \fi%
  2208. % hetero atom on 2%3
  2209. \ifx\ccc\empty\else%
  2210.      \@ccliptrue%
  2211.      \putratom{477}{65}{\ccc}%    % right type
  2212. \fi%
  2213. % hetero atom on 3%2
  2214. \ifx\bbb\empty\else%
  2215.      \@bcliptrue%
  2216.      \putratom{477}{280}{\bbb}%   % right type
  2217. \fi%
  2218. % hetero atom on 3a%8a
  2219. {\let\fff=\jjj%
  2220. \ifx\fff\empty\else%
  2221.      \global\@jcliptrue%
  2222.      \putlatom{207}{280}{\jjj}%   % left type
  2223. \fi%
  2224. }%
  2225. % hetero atom on 4%8
  2226. {\let\aaa=\hhh%
  2227. \ifx\aaa\empty\else%
  2228.      \global\@hcliptrue%
  2229.      \putratom{-31}{356}{\hhh}%   % right type
  2230. \fi%
  2231. }
  2232. % hetero atom on 5%7
  2233. {\let\fff=\ggg%
  2234. \ifx\fff\empty\else%
  2235.      \global\@gcliptrue%
  2236.      \putlatom{-135}{280}{\ggg}%  % left type
  2237. \fi%
  2238. }
  2239. % hetero atom on 6
  2240. {\let\eee=\fff%
  2241. \ifx\eee\empty\else%
  2242.      \global\@fcliptrue%
  2243.      \putlatom{-135}{65}{\fff}%   % left type
  2244. \fi
  2245. }%
  2246. % hetero atom on 7%5
  2247. {\let\ddd=\eee%
  2248. \ifx\ddd\empty\else%
  2249.    \global\@ecliptrue% 
  2250.    \putratom{-31}{-10}{\eee}%     % right type
  2251. \fi%
  2252. }
  2253. % hetero atom on 7a%4a
  2254. {\let\eee=\iii%
  2255. \ifx\eee\empty\else%
  2256.      \global\@icliptrue%
  2257.      \putlatom{207}{65}{\iii}%    % left type
  2258. \fi%
  2259. }%
  2260. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2261. % setting substituents and exocyclic bonds %
  2262. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2263. \put(342,0){\setsixringv{#3}{5}{1}{5}{-1}}% %substituents on 1 to 3
  2264. {\@clipfalse \if@eclip \@cliptrue \fi%      %substituents on 5 to 7
  2265.  \@eclipfalse \if@fclip \@ecliptrue \fi%
  2266.  \@fclipfalse \if@gclip \@fcliptrue \fi%
  2267. \put(0,0){\setsixringv{#3}{11}{3}{7}{-1}}%
  2268. }%
  2269. {\@aclipfalse \if@hclip \@acliptrue \fi%    %substituent on 4
  2270. \put(0,0){\setsixringv{#3}{-3}{0}{2}{0}}%
  2271. }%
  2272. {\@clipfusefalse \if@iclip \@clipfusetrue \fi%
  2273.  \put(171,103){\setatombond{#3}{-8}{7}}%    %9 for 7a position
  2274. }%
  2275. {\@clipfusefalse \if@jclip \@clipfusetrue \fi%
  2276.   \put(171,303){\setatombond{#3}{-7}{1}}%   %8 for 3a position
  2277. }%
  2278. \end{picture}\iniatom\iniflag}%             %end of \nonaheterov macro
  2279. %
  2280. % **********************************
  2281. % * nonahetero derivatives         *
  2282. % *  (vertical type, inverse type) *
  2283. % **********************************
  2284. % The following numbering is adopted in this macro. 
  2285. %
  2286. %          7(10) 1
  2287. %          * 7a  *
  2288. %     6  *   * *   *  2
  2289. %       |     |     |
  2290. %       |     |_____|
  2291. %     5  *   *        3
  2292. %          *  3a(8) 
  2293. %          4 
  2294. %          ^
  2295. %          |
  2296. %          the original point
  2297. %
  2298. %   \nonaheterovi[BONDLIST]{ATOMLIST}{SUBSLIST}
  2299. %  
  2300. %     BONDLIST:  list of bonds 
  2301. %
  2302. %           none or r  :  aromatic six-membered ring
  2303. %           H or []    :  fully saturated form
  2304. %           a    :  1,2-double bond      b    :  2,3-double bond
  2305. %           c    :  3,3a-double bond     d    :  4,3a-double bond
  2306. %           e    :  4,5-double bond      f    :  5,6-double bond
  2307. %           g    :  6,7-double bond      h    :  7,7a-double bond
  2308. %           i    :  1,7a-double bond     j    :  3a,4a-double bond
  2309. %           A    :  aromatic circle (six-membered ring)
  2310. %           B    :  aromatic circle (five-membered ring)
  2311. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 7)
  2312. %
  2313. %     ATOMLIST: list of heteroatoms (max 9 atoms)
  2314. %
  2315. %       for n = 1 to 7
  2316. %
  2317. %            n         : Hetero atom, e.g. N, O, etc. at n-position
  2318. %                        e.g. 1==N for N at 1-position
  2319. %            na        : Hetero atom at 3a or 7b (n=3 or 7)
  2320. %                        e.g. 3a==N (or 8==N) for N at 4a-position
  2321. %                             7a==N (or 9==N) for N at 8a-position
  2322. %
  2323. %     SUBSLIST: list of substituents (max 7 substitution positions)
  2324. %
  2325. %       for n = 1 to 8
  2326. %
  2327. %           nD         :  exocyclic double bond at n-atom
  2328. %           n or nS    :  exocyclic single bond at n-atom
  2329. %           nA         :  alpha single bond at n-atom
  2330. %           nB         :  beta single bond at n-atom
  2331. %           nSA        :  alpha single bond at n-atom (boldface)
  2332. %           nSB        :  beta single bond at n-atom (dotted line)
  2333. %           nSa        :  alpha (not specified) single bond at n-atom
  2334. %           nSb        :  beta (not specified) single bond at n-atom
  2335. %
  2336. %       for 8 (3a position) and 9 (7a position)
  2337. %
  2338. %           nD         :  exocyclic double bond at n-atom
  2339. %           n or nS    :  exocyclic single bond at n-atom
  2340. %           nA         :  alpha single bond at n-atom
  2341. %           nB         :  beta single bond at n-atom
  2342. %
  2343. %       e.g. 
  2344. %        
  2345. %        \nonaheterovi{1==N}{1==Cl;2==F}
  2346. %        \nonaheterovi[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  2347. %
  2348. \def\nonaheterovi{\@ifnextchar[{\@nonaheterovi}{\@nonaheterovi[r]}}
  2349. \def\@nonaheterovi[#1]#2#3{%
  2350. %%%%%%%%%%%%%%%%%%%%%%%%%%
  2351. % treatment of atom list %
  2352. %%%%%%%%%%%%%%%%%%%%%%%%%%
  2353. \iniflag\iniatom%initialize
  2354. \@forsemicol\member:=#2\do{%
  2355. \expandafter\@m@mb@r\member;\relax%
  2356. \expandafter\twoch@r\@membera{}%
  2357. \ifcase\@tmpa%
  2358.  \or \xdef\aaa{\@memberb}%1
  2359.  \or \xdef\bbb{\@memberb}%2
  2360.  \or%
  2361.    \if\@tmpb a%
  2362.      \xdef\iii{\@memberb}%3a
  2363.    \else\ifx\@tmpb\empty%
  2364.      \xdef\ccc{\@memberb}%3
  2365.    \fi\fi
  2366.  \or \xdef\eee{\@memberb}%4
  2367.  \or \xdef\fff{\@memberb}%5
  2368.  \or \xdef\ggg{\@memberb}%6
  2369.  \or% 
  2370.    \if\@tmpb a%
  2371.      \xdef\jjj{\@memberb}%7a
  2372.    \else\ifx\@tmpb\empty%
  2373.      \xdef\hhh{\@memberb}%7
  2374.    \fi\fi
  2375. \or \xdef\iii{\@memberb}%8 (= 3a)
  2376. \or \xdef\jjj{\@memberb}%9 (= 7a)
  2377. \fi}%
  2378.  \begin{picture}(1200,880)(-\shiftii,-\shifti)%
  2379.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  2380.            \put(-\noshift,-\noshift){\circle{50}}% 
  2381.    \typeout{command `nonaheterovi' origin: %
  2382.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  2383. %%%%%%%%%%%%%%%%%%
  2384. % outer skeleton %
  2385. %%%%%%%%%%%%%%%%%%
  2386. {\let\fff=\jjj \let\eee=\iii%
  2387.  \put(342,0){\skbonda}% bond between 1 and 2
  2388.  \put(342,0){\skbondb}% bond between 2 and 3
  2389.  \put(342,0){\skbonde}% bond between 7a and 3a
  2390.  \put(342,0){\skbondf}% bond between 1 and 7a
  2391.  \put(342,0){\skbondhorizi}% bond between 3 and 3a
  2392. }%
  2393. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
  2394.  \let\ccc=\iii\let\bbb=\jjj%
  2395.  \put(0,0){\skbonda}% bond between 7 and 7a
  2396.  \put(0,0){\skbondc}% bond between 4 and 3a
  2397.  \put(0,0){\skbondf}% bond between 6 and 7
  2398.  \put(0,0){\skbondd}% bond between 4 and 5 
  2399.  \put(0,0){\skbonde}% bond between 5 and 6 
  2400. }%
  2401. %%%%%%%%%%%%%%%%%%%%%
  2402. % inner double bond %
  2403. %%%%%%%%%%%%%%%%%%%%%
  2404. \@tfor\member:=#1\do{%
  2405. \if\member r\relax%
  2406. {\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg
  2407.  \let\ccc=\iii\let\bbb=\jjj
  2408.  \put(0,0){\bondb}% bond between 3a and 7a
  2409.  \put(0,0){\bondf}% bond between 6 and 7
  2410.  \put(0,0){\bondd}% bond between 4 and 5
  2411. }%
  2412. \else\if\member l\relax%
  2413. \else\if\member a\relax%
  2414.  \put(342,0){\bonda}% bond between 1 and 2
  2415. \else\if\member b\relax%
  2416.  \put(342,0){\bondb}% bond between 2 and 3
  2417. \else\if\member c\relax%
  2418.  \put(342,0){\bondhorizi}% bond between 3 and 3a
  2419. \else\if\member d\relax%
  2420. {\let\ccc=\iii \let\ddd=\eee%
  2421.  \put(0,0){\bondc}% bond between 4 and 3a
  2422. }%
  2423. \else\if\member e\relax%
  2424. {\let\ddd=\eee\let\eee=\fff%
  2425.  \put(0,0){\bondd}% bond between 4 and 5
  2426. }%
  2427. %{\let\eee=\iii%
  2428. % \put(342,0){\bondd}% bond between 4 and 5
  2429. %}%
  2430. \else\if\member f\relax%
  2431. {\let\eee=\fff \let\fff=\ggg%
  2432.  \put(0,0){\bonde}% bond between 5 and 6
  2433. }%
  2434. \else\if\member g\relax%
  2435. {\let\aaa=\hhh \let\fff=\ggg%
  2436.  \put(0,0){\bondf}% bond between 7 and 6
  2437. }%
  2438. \else\if\member h\relax%
  2439. {\let\aaa=\hhh \let\bbb=\jjj%
  2440.  \put(0,0){\bonda}% bond between 7 and 7a
  2441. }%
  2442. \else\if\member i\relax%
  2443. {\let\fff=\jjj%
  2444.  \put(342,0){\bondf}% bond between 1 and 7a
  2445. }%
  2446. \else\if\member j\relax%
  2447. {\let\ccc=\iii\let\bbb=\jjj%
  2448.  \put(0,0){\bondb}% bond between 7a and 3a
  2449. }%
  2450. \else\if\member A%left aromatic circle 
  2451.   \put(0,203){\circle{240}}%               %circle
  2452. \else\if\member B%left aromatic circle 
  2453.   \put(342,233){\circle{180}}               %circle 1993/11/20 S.Fujita
  2454. \else \expandafter\twoch@@r\member{}{}%
  2455.   \def\aax{7a} \def\aay{3a}%
  2456.       \if\@@tmpa 1\relax%
  2457.         \putratom{304}{282}{\@@tmpb}%       % right type
  2458.       \else\if\@@tmpa 3\relax%
  2459.         \putratom{402}{120}{\@@tmpb}%      % right type
  2460.       \else\if\@@tmpa 2\relax%
  2461.         \putratom{402}{253}{\@@tmpb}%      % right type
  2462.       \else\if\@@tmpa 7\relax%
  2463.         \putratom{-38}{282}{\@@tmpb}%      % right type
  2464.       \else\if\@@tmpa 6\relax%
  2465.         \putlatom{-60}{120}{\@@tmpb}%      % left type
  2466.       \else\if\@@tmpa 5\relax%
  2467.         \putlatom{-60}{253}{\@@tmpb}%      % left type
  2468.       \else\if\@@tmpa 4\relax%
  2469.         \putratom{-38}{68}{\@@tmpb}%       % right type
  2470.       \else\if\@@tmpa 9\relax%
  2471.         \putratom{60}{253}{\@@tmpb}%       % right type
  2472.       \else\ifx\@@tmpa\aax\relax%
  2473.         \putratom{60}{253}{\@@tmpb}%       % right type
  2474.       \else\ifx\@@tmpa\aay\relax%
  2475.         \putratom{60}{120}{\@@tmpb}%       % right type
  2476.       \else\if\@@tmpa 8\relax%
  2477.         \putratom{60}{120}{\@@tmpb}%       % right type
  2478.       \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
  2479. \fi\fi\fi\fi\fi\fi\fi\fi%
  2480. \fi\fi\fi\fi\fi\fi%
  2481. }%
  2482. %%%%%%%%%%%%%%%%%%%%%%%%
  2483. % setting hetero atoms %
  2484. %%%%%%%%%%%%%%%%%%%%%%%%
  2485. % hetero atom on 1
  2486. \ifx\aaa\empty\else%
  2487.      \@acliptrue%
  2488.      \putratom{311}{356}{\aaa}%  % right type
  2489. \fi%
  2490. % hetero atom on 1%4
  2491. %\ifx\ddd\empty\else%
  2492. %   \@cliptrue% 
  2493. %   \putratom{311}{-10}{\ddd}%     % right type
  2494. %\fi
  2495. % hetero atom on 3
  2496. \ifx\ccc\empty\else%
  2497.      \@ccliptrue%
  2498.      \putratom{477}{65}{\ccc}%    % right type
  2499. \fi%
  2500. % hetero atom on 2
  2501. \ifx\bbb\empty\else%
  2502.      \@bcliptrue%
  2503.      \putratom{477}{280}{\bbb}%   % right type
  2504. \fi%
  2505. % hetero atom on 7a
  2506. {\let\fff=\jjj%
  2507. \ifx\fff\empty\else%
  2508.      \global\@jcliptrue%
  2509.      \putlatom{207}{280}{\jjj}%   % left type
  2510. \fi%
  2511. }%
  2512. % hetero atom on 7
  2513. {\let\aaa=\hhh%
  2514. \ifx\aaa\empty\else%
  2515.      \global\@hcliptrue%
  2516.      \putratom{-31}{356}{\hhh}%   % right type
  2517. \fi%
  2518. }%
  2519. % hetero atom on 6
  2520. {\let\fff=\ggg%
  2521. \ifx\fff\empty\else%
  2522.      \global\@gcliptrue%
  2523.      \putlatom{-135}{280}{\ggg}%  % left type
  2524. \fi%
  2525. }%
  2526. % hetero atom on 5
  2527. {\let\eee=\fff%
  2528. \ifx\eee\empty\else%
  2529.      \global\@fcliptrue%
  2530.      \putlatom{-135}{65}{\fff}%   % left type
  2531. \fi%
  2532. }
  2533. % hetero atom on 4
  2534. {\let\ddd=\eee%
  2535. \ifx\ddd\empty\else%
  2536.    \global\@ecliptrue% 
  2537.    \putratom{-31}{-10}{\eee}%     % right type
  2538. \fi%
  2539. }
  2540. % hetero atom on 3a
  2541. {\let\eee=\iii%
  2542. \ifx\eee\empty\else%
  2543.      \global\@icliptrue%
  2544.      \putlatom{207}{65}{\iii}%    % left type
  2545. \fi%
  2546. }%
  2547. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2548. % setting substituents and exocyclic bonds %
  2549. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2550. \put(342,0){\setsixringv{#3}{0}{0}{4}{0}}% %substituents on 1 to 3
  2551. {\@clipfalse \if@eclip \@cliptrue \fi%     %substituents on 4 to 6
  2552.  \@eclipfalse \if@fclip \@ecliptrue \fi%
  2553.  \@fclipfalse \if@gclip \@fcliptrue \fi%
  2554. \put(0,0){\setsixringv{#3}{0}{3}{7}{0}}%
  2555. }%
  2556. {\@aclipfalse \if@hclip \@acliptrue \fi%   %substituent on 7
  2557. \put(0,0){\setsixringv{#3}{-6}{0}{2}{0}}%
  2558. }%
  2559. {\@clipfusefalse \if@iclip \@clipfusetrue \fi%
  2560.  \put(171,103){\setatombond{#3}{-7}{7}}%   %8 for 3a position
  2561. }%
  2562. {\@clipfusefalse \if@jclip \@clipfusetrue \fi%
  2563.   \put(171,303){\setatombond{#3}{-8}{1}}%  %9 for 7a position
  2564. }%
  2565. \end{picture}\iniatom\iniflag}%            %end of \nonaheterovi macro
  2566. %
  2567. % **********************************************************
  2568. % * heterocycles having fused six- and five-membered rings *
  2569. % *  (vertical type)                                       *
  2570. % **********************************************************
  2571. %
  2572. %   N-heterocycles:
  2573. %
  2574. %   \indolev[BONDLIST]{SUBSLIST}
  2575. %   \indolevi[BONDLIST]{SUBSLIST}
  2576. %
  2577. %   \isoindolev[BONDLIST]{SUBSLIST}
  2578. %   \isoindolevi[BONDLIST]{SUBSLIST}
  2579. %
  2580. %   \indolizinev[BONDLIST]{SUBSLIST}
  2581. %   \indolizinevi[BONDLIST]{SUBSLIST}
  2582. %          (different from the IUPAC numbering)
  2583. %
  2584. %   \purinev[BONDLIST]{SUBSLIST}
  2585. %   \purinevi[BONDLIST]{SUBSLIST}
  2586. %          (different from the IUPAC numbering)
  2587. %
  2588. %   O-heterocycles:
  2589. %
  2590. %   \benzofuranev[BONDLIST]{SUBSLIST}
  2591. %   \benzofuranevi[BONDLIST]{SUBSLIST}
  2592. %
  2593. %   \isobenzofuranevi[BONDLIST]{SUBSLIST}
  2594. %
  2595. %   \benzoxazolev[BONDLIST]{SUBSLIST}
  2596. %   \benzoxazolevi[BONDLIST]{SUBSLIST}
  2597. %  
  2598. %     BONDLIST:  list of bonds 
  2599. %
  2600. %           none or r  :  aromatic six-membered ring
  2601. %           H or []    :  fully saturated form
  2602. %           a    :  1,2-double bond      b    :  2,3-double bond
  2603. %           c    :  3,3a-double bond     d    :  4,3a-double bond
  2604. %           e    :  4,5-double bond      f    :  5,6-double bond
  2605. %           g    :  6,7-double bond      h    :  7,7a-double bond
  2606. %           i    :  1,7a-double bond     j    :  3a,4a-double bond
  2607. %           A    :  aromatic circle
  2608. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 7)
  2609. %
  2610. %     SUBSLIST: list of substituents (max 7 substitution positions)
  2611. %
  2612. %       for n = 1 to 8
  2613. %
  2614. %           nD         :  exocyclic double bond at n-atom
  2615. %           n or nS    :  exocyclic single bond at n-atom
  2616. %           nA         :  alpha single bond at n-atom
  2617. %           nB         :  beta single bond at n-atom
  2618. %           nSA        :  alpha single bond at n-atom (boldface)
  2619. %           nSB        :  beta single bond at n-atom (dotted line)
  2620. %           nSa        :  alpha (not specified) single bond at n-atom
  2621. %           nSb        :  beta (not specified) single bond at n-atom
  2622. %
  2623. %       for 8 (3a position) and 9 (7a position)
  2624. %
  2625. %           nD         :  exocyclic double bond at n-atom
  2626. %           n or nS    :  exocyclic single bond at n-atom
  2627. %           nA         :  alpha single bond at n-atom
  2628. %           nB         :  beta single bond at n-atom
  2629. %
  2630. %       e.g. 
  2631. %        
  2632. %        \indolev{1==N}{1==Cl;2==F}
  2633. %        \indolev[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  2634. %
  2635. \def\purinev{\@ifnextchar[{\@purinev}{\@purinev[ra]}}
  2636. \def\@purinev[#1]#2{%
  2637. \iforigpt \typeout{command `purinev' is based on `nonaheterov'.}\fi%
  2638. \nonaheterov[#1]{1==N;3==N;5==N;7==N}{#2}}
  2639. \def\purinevi{\@ifnextchar[{\@purinevi}{\@purinevi[ra]}}
  2640. \def\@purinevi[#1]#2{%
  2641. \iforigpt \typeout{command `purinevi' is based on `nonaheterovi'.}\fi%
  2642. \nonaheterovi[#1]{1==N;3==N;5==N;7==N}{#2}}
  2643. %
  2644. \def\indolev{\@ifnextchar[{\@indolev}{\@indolev[rb]}}
  2645. \def\@indolev[#1]#2{%
  2646. \iforigpt \typeout{command `indolev' is based on `nonaheterov'.}\fi%
  2647. \nonaheterov[#1]{1==N}{#2}}
  2648. \def\indolevi{\@ifnextchar[{\@indolevi}{\@indolevi[rb]}}
  2649. \def\@indolevi[#1]#2{%
  2650. \iforigpt \typeout{command `indolevi' is based on `nonaheterovi'.}\fi%
  2651. \nonaheterovi[#1]{1==N}{#2}}
  2652. %
  2653. \def\indolizinev{\@ifnextchar[{\@indolizinev}{\@indolizinev[aceg]}}
  2654. \def\@indolizinev[#1]#2{%
  2655. \iforigpt \typeout{command `indolizinev' is based on `nonaheterov'.}\fi%
  2656. \nonaheterov[#1]{7a==N}{#2}}
  2657. \def\indolizinevi{\@ifnextchar[{\@indolizinevi}{\@indolizinevi[aceg]}}
  2658. \def\@indolizinevi[#1]#2{%
  2659. \iforigpt \typeout{command `indolizinevi' is based on `nonaheterovi'.}\fi%
  2660. \nonaheterovi[#1]{7a==N}{#2}}
  2661. %
  2662. \def\isoindolev{\@ifnextchar[{\@isoindolev}{\@isoindolev[cegi]}}
  2663. \def\@isoindolev[#1]#2{%
  2664. \iforigpt \typeout{command `isoindolev' is based on `nonaheterov'.}\fi%
  2665. \nonaheterov[#1]{2==N}{#2}}
  2666. \def\isoindolevi{\@ifnextchar[{\@isoindolevi}{\@isoindolevi[cegi]}}
  2667. \def\@isoindolevi[#1]#2{%
  2668. \iforigpt \typeout{command `isoindolevi' is based on `nonaheterovi'.}\fi%
  2669. \nonaheterovi[#1]{2==N}{#2}}
  2670. %
  2671. \def\benzofuranev{\@ifnextchar[{\@benzofuranev}{\@benzofuranev[rb]}}
  2672. \def\@benzofuranev[#1]#2{%
  2673. \iforigpt \typeout{command `benzofuranev' is based on `nonaheterov'.}\fi%
  2674. \nonaheterov[#1]{1==O}{#2}}
  2675. \def\benzofuranevi{\@ifnextchar[{\@benzofuranevi}{\@benzofuranevi[rb]}}
  2676. \def\@benzofuranevi[#1]#2{%
  2677. \iforigpt \typeout{command `benzofuranevi' is based on `nonaheterovi'.}\fi%
  2678. \nonaheterovi[#1]{1==O}{#2}}
  2679. %
  2680. \def\isobenzofuranev{\@ifnextchar[{\@isobenzofuranev}%
  2681.  {\@isobenzofuranev[cegi]}}
  2682. \def\@isobenzofuranev[#1]#2{%
  2683. \iforigpt \typeout{command `isobenzofuranev' is based on `nonaheterov'.}\fi%
  2684. \nonaheterov[#1]{2==O}{#2}}
  2685. \def\isobenzofuranevi{\@ifnextchar[{\@isobenzofuranevi}%
  2686.  {\@isobenzofuranevi[cegi]}}
  2687. \def\@isobenzofuranevi[#1]#2{%
  2688. \iforigpt \typeout{command `isobenzofuranevi' is based on `nonaheterovi'.}\fi%
  2689. \nonaheterovi[#1]{2==O}{#2}}
  2690. %
  2691. \def\benzoxazolev{\@ifnextchar[{\@benzoxazolev}{\@benzoxazolev[rb]}}
  2692. \def\@benzoxazolev[#1]#2{%
  2693. \iforigpt \typeout{command `benzoxazolev' is based on `nonaheterov'.}\fi%
  2694. \nonaheterov[#1]{1==O;3==N}{#2}}
  2695. \def\benzoxazolevi{\@ifnextchar[{\@benzoxazolevi}{\@benzoxazolevi[rb]}}
  2696. \def\@benzoxazolevi[#1]#2{%
  2697. \iforigpt \typeout{command `benzoxazolevi' is based on `nonaheterovi'.}\fi%
  2698. \nonaheterovi[#1]{1==O;3==N}{#2}}
  2699. %
  2700. % **********************
  2701. % * six-membered unit  *
  2702. % *  (vertical type)   *
  2703. % **********************
  2704. % This macro is a six-membered fragment that can be fused to another 
  2705. % ring structure to produce a new ring system. The following 
  2706. % numbering is adopted in this macro. 
  2707. %
  2708. %          1
  2709. %          *  
  2710. %     6  *   *  2
  2711. %       |     |
  2712. %       |     |
  2713. %     5  *   *  3
  2714. %          *
  2715. %          4 <===== the original point
  2716. %
  2717. %   \sixunitv[BONDLIST]{ATOMLIST}{SUBSLIST}{OMIT}
  2718. %  
  2719. %     BONDLIST = 
  2720. %
  2721. %           none       :  fully saturated
  2722. %           a          :  1,2-double bond
  2723. %           b          :  2,3-double bond
  2724. %           c          :  4,3-double bond
  2725. %           d          :  4,5-double bond
  2726. %           e          :  5,6-double bond
  2727. %           f          :  6,1-double bond
  2728. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  2729. %
  2730. %     ATOMLIST: list of heteroatoms (max 6 atoms)
  2731. %
  2732. %       for n = 1 to 6
  2733. %
  2734. %           n          : Hetero atom, e.g. N, O, etc. at n-position, 
  2735. %                        e.g. 1==N for N at 1-position
  2736. %
  2737. %     SUBSLIST: list of substituents (max 6 substitution positions)
  2738. %
  2739. %       for n = 1 to 6 
  2740. %
  2741. %           nD         :  exocyclic double bond at n-atom
  2742. %           n or nS    :  exocyclic single bond at n-atom
  2743. %           nA         :  alpha single bond at n-atom
  2744. %           nB         :  beta single bond at n-atom
  2745. %           nSA        :  alpha single bond at n-atom (boldface)
  2746. %           nSB        :  beta single bond at n-atom (dotted line)
  2747. %           nSa        :  alpha (not specified) single bond at n-atom
  2748. %           nSb        :  beta (not specified) single bond at n-atom
  2749. %
  2750. %     OMIT:  one bond omitted (a, b, c, d, e, or f)
  2751. %
  2752. %       e.g. 
  2753. %        
  2754. %        \sixhunitv{1==N}{1==Cl;2==F}{e}
  2755. %
  2756. \def\sixunitv{\@ifnextchar[{\@sixunitv}{\@sixunitv[r]}}
  2757. \def\@sixunitv[#1]#2#3#4{%
  2758. %%%%%%%%%%%%%%%%%%%%%%%%%%
  2759. % treatment of atom list %
  2760. %%%%%%%%%%%%%%%%%%%%%%%%%%
  2761. \iniatom\iniflag%initialize%
  2762. \@forsemicol\member:=#2\do{%
  2763. \expandafter\@m@mb@r\member;\relax%
  2764. \expandafter\twoch@r\@membera{}%
  2765. \ifcase\@tmpa%
  2766.  \or \xdef\aaa{\@memberb}%
  2767.  \or \xdef\bbb{\@memberb}%
  2768.  \or \xdef\ccc{\@memberb}%
  2769.  \or \xdef\ddd{\@memberb}%
  2770.  \or \xdef\eee{\@memberb}%
  2771.  \or \xdef\fff{\@memberb}%
  2772. \fi}%
  2773.  \begin{picture}(800,880)(-\shiftii,-\shifti)%
  2774.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  2775.            \put(-\noshift,-\noshift){\circle{50}}% 
  2776.    \typeout{command `sixunitv' origin: %
  2777.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  2778. %%%%%%%%%%%%%%%%%%
  2779. % outer skeleton %
  2780. %%%%%%%%%%%%%%%%%%
  2781. % changed OMIT into a list 1993/11/21 by Shinsaku Fujita
  2782. {\resetbdsw%
  2783. \@tfor\memBer:=#4\do{%
  2784. \if\memBer a\relax\gdef\@aaa{}\fi%
  2785. \if\memBer b\relax\gdef\@bbb{}\fi%
  2786. \if\memBer c\relax\gdef\@ccc{}\fi%
  2787. \if\memBer d\relax\gdef\@ddd{}\fi%
  2788. \if\memBer e\relax\gdef\@eee{}\fi%
  2789. \if\memBer f\relax\gdef\@fff{}\fi%
  2790. }%
  2791. \if\@aaa a\relax\skbonda\fi% bond between 1 and 2
  2792. \if\@bbb b\relax\skbondb\fi% bond between 2 and 3
  2793. \if\@ccc c\relax\skbondc\fi% bond between 3 and 4
  2794. \if\@ddd d\relax\skbondd\fi% bond between 4 and 5
  2795. \if\@eee e\relax\skbonde\fi% bond between 5 and 6
  2796. \if\@fff f\relax\skbondf\fi% bond between 6 and 1
  2797. }%
  2798. % old
  2799. %\ifx#4a\relax\else%
  2800. % \skbonda% bond between 1 and 2
  2801. %\fi%
  2802. %\ifx#4f\relax\else%
  2803. % \skbondf% bond between 1 and 6
  2804. %\fi%
  2805. %\ifx#4c\relax\else%
  2806. % \skbondc% bond between 4 and 3
  2807. %\fi%
  2808. %\ifx#4d\relax\else%
  2809. % \skbondd% bond between 4 and 5
  2810. %\fi%
  2811. %\ifx#4b\relax\else%
  2812. % \skbondb% bond between 3 and 2
  2813. %\fi%
  2814. %\ifx#4e\relax\else%
  2815. % \skbonde% bond between 5 and 6
  2816. %\fi%
  2817. %%%%%%%%%%%%%%%%%%%%%
  2818. % inner double bond %
  2819. %%%%%%%%%%%%%%%%%%%%%
  2820. \@tfor\member:=#1\do{%
  2821. \if\member r\relax%
  2822. \else\if\member l\relax%
  2823. \else\if\member a\relax% 
  2824.  \ifx#4a\relax\else%
  2825.   \bonda%
  2826.  \fi%
  2827. \else\if\member b\relax% 
  2828.  \ifx#4b\relax\else%
  2829.    \bondb%
  2830.  \fi%
  2831. \else\if\member c\relax%
  2832.  \ifx#4c\relax\else%
  2833.    \bondc%
  2834.  \fi%
  2835. \else\if\member d\relax%
  2836.  \ifx#4d\relax\else%
  2837.    \bondd%
  2838.  \fi%
  2839. \else\if\member e\relax%
  2840.  \ifx#4e\relax\else%
  2841.    \bonde%
  2842.  \fi%
  2843. \else\if\member f\relax%
  2844.  \ifx#4f\relax\else%
  2845.    \bondf%
  2846.  \fi%
  2847. \else\if\member A%left aromatic circle 
  2848.   \put(0,203){\circle{240}}%               %circle
  2849. \else \expandafter\twoch@@r\member{}{}%
  2850.       \if\@@tmpa 1\relax%
  2851.         \putratom{-38}{282}{\@@tmpb}%      % right type
  2852.       \else\if\@@tmpa 2\relax%
  2853.         \putratom{60}{253}{\@@tmpb}%       % right type
  2854.       \else\if\@@tmpa 3\relax%
  2855.         \putratom{60}{120}{\@@tmpb}%       % right type
  2856.       \else\if\@@tmpa 4\relax%
  2857.         \putratom{-38}{68}{\@@tmpb}%       % right type
  2858.       \fi\fi\fi\fi%
  2859. \fi\fi\fi\fi\fi\fi\fi\fi\fi%
  2860. }%
  2861. %%%%%%%%%%%%%%%%%%%%%%%%
  2862. % setting hetero atoms %
  2863. %%%%%%%%%%%%%%%%%%%%%%%%
  2864. \ifx\ddd\empty\else%
  2865.    \@cliptrue% 
  2866.    \putratom{-31}{-10}{\ddd}%  % right type
  2867. \fi%
  2868. \ifx\aaa\empty\else%
  2869.      \@acliptrue%
  2870.      \putratom{-31}{356}{\aaa}%  % right type
  2871. \fi%
  2872. \ifx\bbb\empty\else%
  2873.      \@bcliptrue%
  2874.      \putratom{135}{280}{\bbb}%  % right type
  2875. \fi%
  2876. \ifx\ccc\empty\else%
  2877.      \@ccliptrue%
  2878.      \putratom{135}{65}{\ccc}%   % right type
  2879. \fi%
  2880. \ifx\fff\empty\else%
  2881.      \@fcliptrue%
  2882.      \putlatom{-135}{280}{\bbb}% % left type
  2883. \fi%
  2884. \ifx\eee\empty\else%
  2885.      \@ecliptrue%
  2886.      \putlatom{-135}{65}{\ccc}%  % left type
  2887. \fi%
  2888. \setsixringv{#3}{0}{0}{7}{0}%
  2889. \end{picture}\iniatom\iniflag}%     %end of \sixunitv macro
  2890. %
  2891. % **********************
  2892. % * five-membered unit *
  2893. % *  (vertical type)   *
  2894. % **********************
  2895. % This macro is a five-membered fragment that can be fused to another 
  2896. % ring structure to produce a new ring system. The following 
  2897. % numbering is adopted in this macro. 
  2898. %
  2899. %     4 _______ 3
  2900. %       |     |
  2901. %       |     |
  2902. %     5  *   *  2
  2903. %          *
  2904. %          1 <===== the original point
  2905. %
  2906. %
  2907. %   \fiveunitv[BONDLIST]{ATOMLIST}{SUBSLIST}{OMIT}
  2908. %  
  2909. %     BONDLIST: list of inner double bonds 
  2910. %
  2911. %           a          :  1,2-double bond
  2912. %           b          :  2,3-double bond
  2913. %           c          :  4,3-double bond
  2914. %           d          :  4,5-double bond
  2915. %           e          :  5,1-double bond
  2916. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  2917. %
  2918. %     ATOMLIST: list of heteroatoms (max 5 atoms)
  2919. %
  2920. %       for n = 1 to 5
  2921. %
  2922. %           n          : Hetero atom, e.g. N, O, etc. at n-position
  2923. %                        e.g. 1==N for N at 1-position
  2924. %
  2925. %     SUBSLIST: list of substituents (max 5 substitution positions)
  2926. %
  2927. %       for n = 1 to 5 
  2928. %
  2929. %           nD         :  exocyclic double bond at n-atom
  2930. %           n or nS    :  exocyclic single bond at n-atom
  2931. %           nA         :  alpha single bond at n-atom
  2932. %           nB         :  beta single bond at n-atom
  2933. %           nSA        :  alpha single bond at n-atom (boldface)
  2934. %           nSB        :  beta single bond at n-atom (dotted line)
  2935. %           nSa        :  alpha (not specified) single bond at n-atom
  2936. %           nSb        :  beta (not specified) single bond at n-atom
  2937. %
  2938. %     OMIT:  one bond omitted (a, b, c, d, e, or f)
  2939. %
  2940. %       e.g. 
  2941. %        
  2942. %        \fiveunitv{1==N}{1==H;2==F}{a}
  2943. %
  2944. \def\fiveunitv{\@ifnextchar[{\@fiveunitv}{\@fiveunitv[r]}}
  2945. \def\@fiveunitv[#1]#2#3#4{%
  2946. \iniatom\iniflag%initialize
  2947. %\def\aaa{}\def\bbb{}\def\ccc{}\def\ddd{}\def\eee{}\def\fff{}%
  2948. \@forsemicol\member:=#2\do{%
  2949. \expandafter\@m@mb@r\member;\relax%
  2950. \expandafter\twoch@r\@membera{}%
  2951. \ifcase\@tmpa%
  2952.  \or \xdef\ddd{\@memberb}%
  2953.  \or \xdef\ccc{\@memberb}%
  2954.  \or \xdef\bbb{\@memberb}%
  2955.  \or \xdef\fff{\@memberb}%
  2956.  \or \xdef\eee{\@memberb}%
  2957. \fi}%
  2958.  \begin{picture}(800,880)(-\shiftii,-\shifti)%
  2959.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  2960.            \put(-\noshift,-\noshift){\circle{50}}% 
  2961.    \typeout{command `fiveunitv' origin: %
  2962.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  2963. %%%%%%%%%%%%%%%%%%
  2964. % outer skeleton %
  2965. %%%%%%%%%%%%%%%%%%
  2966. % changed OMIT to a list 1993/11/21 by Shinsaku Fujita
  2967. {\resetbdsw%
  2968. \@tfor\memBer:=#4\do{%
  2969. \if\memBer a\relax\gdef\@aaa{}\fi%
  2970. \if\memBer b\relax\gdef\@bbb{}\fi%
  2971. \if\memBer c\relax\gdef\@ccc{}\fi%
  2972. \if\memBer d\relax\gdef\@ddd{}\fi%
  2973. \if\memBer e\relax\gdef\@eee{}\fi%
  2974. %\if\memBer f\relax\gdef\@fff{}\fi%
  2975. }%
  2976. \if\@aaa a\relax\skbondc\fi% bond between 1 and 2
  2977. \if\@bbb b\relax\skbondb\fi% bond between 2 and 3
  2978. \if\@ccc c\relax\skbondhoriz\fi% bond between 3 and 4
  2979. \if\@ddd d\relax\skbonde\fi% bond between 4 and 5
  2980. \if\@eee e\relax\skbondd\fi% bond between 5 and 6
  2981. %\if\@fff f\relax\skbondf\fi% bond between 6 and 1
  2982. }%
  2983. % old
  2984. %\ifx#4a\relax\else%
  2985. % \skbondc%bond between 1 and 2
  2986. %\fi%
  2987. %\ifx#4e\relax\else%
  2988. % \skbondd%bond between 1 and 5
  2989. %\fi%
  2990. %\ifx#4b\relax\else%
  2991. %  \skbondb%bond between 2 to 3
  2992. %\fi%
  2993. %\ifx#4d\relax\else%
  2994. % \skbonde%bond between 5 and 4
  2995. %\fi%
  2996. %\ifx#4c\relax\else%
  2997. % \skbondhoriz%bond between 4 and 3
  2998. %\fi%
  2999. %%%%%%%%%%%%%%%%%%%%%
  3000. % inner double bond %
  3001. %%%%%%%%%%%%%%%%%%%%%
  3002. \@tfor\member:=#1\do{%
  3003. \if\member r%
  3004. \else\if\member a\relax%
  3005.  \ifx#4a\relax\else%
  3006.    \bondc%
  3007.  \fi%
  3008. \else\if\member b\relax%
  3009.  \ifx#4b\relax\else%
  3010.   \bondb%
  3011.  \fi%
  3012. \else\if\member c\relax%
  3013.  \ifx#4c\relax\else%
  3014.    \bondhoriz%
  3015.  \fi%
  3016. \else\if\member d\relax%
  3017.  \ifx#4d\relax\else%
  3018.   \bonde%
  3019.  \fi%
  3020. \else\if\member e\relax%
  3021.  \ifx#4e\relax\else%
  3022.   \bondd%
  3023.  \fi%
  3024. \else \expandafter\twoch@@r\member{}{}%     %plus or minus charges
  3025.       \if\@@tmpa 1\relax%
  3026.         \putratom{-38}{68}{\@@tmpb}%        % right type
  3027.       \else\if\@@tmpa 2\relax%
  3028.         \putratom{60}{120}{\@@tmpb}%        % right type
  3029.       \else\if\@@tmpa 3\relax%
  3030.         \putratom{60}{233}{\@@tmpb}%        % right type
  3031.       \else\if\@@tmpa 4\relax%
  3032.         \putratom{-60}{233}{\@@tmpb}%       % right type
  3033.       \else\if\@@tmpa 5\relax%
  3034.         \putratom{-60}{120}{\@@tmpb}%       % right type
  3035.       \fi\fi\fi\fi\fi%
  3036. \fi\fi\fi\fi\fi\fi}%
  3037. %%%%%%%%%%%%%%%%%%%%%%%
  3038. % setting heteroatoms %
  3039. %%%%%%%%%%%%%%%%%%%%%%%
  3040. \ifx\ddd\empty\else%
  3041.    \@cliptrue% 
  3042.    \putratom{-31}{-10}{\ddd}%    % right type at 1
  3043. \fi%
  3044. \ifx\bbb\empty\else%
  3045.      \@bcliptrue%
  3046.      \putratom{135}{280}{\bbb}%  % right type at 3
  3047. \fi%
  3048. \ifx\fff\empty\else%
  3049.      \@fcliptrue%
  3050.      \putlatom{-135}{280}{\fff}% % left type at 4
  3051. \fi%
  3052. \ifx\ccc\empty\else%
  3053.      \@ccliptrue%
  3054.      \putratom{135}{65}{\ccc}%   % right type at 2
  3055. \fi%
  3056. \ifx\eee\empty\else%
  3057.      \@ecliptrue%
  3058.      \putlatom{-135}{65}{\eee}%  % left type at 5 
  3059. \fi%
  3060. %%%%%%%%%%%%%%%%%%%%%%%%
  3061. % setting substituents %
  3062. %%%%%%%%%%%%%%%%%%%%%%%%
  3063. \setsixringv{#3}{5}{1}{5}{-1}%   % for 1 to 3
  3064. \setsixringv{#3}{10}{4}{7}{-1}%  % for 4 to 5
  3065. \end{picture}\iniatom\iniflag}               %end of \fiveunitv macro
  3066. %
  3067. % ************************************
  3068. % * five-membered unit               *
  3069. % *  (vertical type, inverse type)   *
  3070. % ************************************
  3071. % This macro is a five-membered fragment that can be fused to another 
  3072. % ring structure to produce a new ring system. The following 
  3073. % numbering is adopted in this macro. 
  3074. %
  3075. %          1
  3076. %          * 
  3077. %     6  *   *  2
  3078. %       |     |
  3079. %       |_____|
  3080. %     4         3
  3081. %          *
  3082. %        (0,0) <===== the original point
  3083. %
  3084. %   \fiveunitvi[BONDLIST]{ATOMLIST}{SUBSLIST}{OMIT}
  3085. %  
  3086. %     BONDLIST: list of inner double bonds 
  3087. %
  3088. %           a          :  1,2-double bond
  3089. %           b          :  2,3-double bond
  3090. %           c          :  4,3-double bond
  3091. %           d          :  4,5-double bond
  3092. %           e          :  5,1-double bond
  3093. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  3094. %
  3095. %     ATOMLIST: list of heteroatoms (max 5 atoms)
  3096. %
  3097. %       for n = 1 to 5
  3098. %
  3099. %           n          : Hetero atom, e.g. N, O, etc. at n-position
  3100. %                        e.g. 1==N for N at 1-position
  3101. %
  3102. %     SUBSLIST: list of substituents (max 5 substitution positions)
  3103. %
  3104. %       for n = 1 to 5 
  3105. %
  3106. %           nD         :  exocyclic double bond at n-atom
  3107. %           n or nS    :  exocyclic single bond at n-atom
  3108. %           nA         :  alpha single bond at n-atom
  3109. %           nB         :  beta single bond at n-atom
  3110. %           nSA        :  alpha single bond at n-atom (boldface)
  3111. %           nSB        :  beta single bond at n-atom (dotted line)
  3112. %           nSa        :  alpha (not specified) single bond at n-atom
  3113. %           nSb        :  beta (not specified) single bond at n-atom
  3114. %
  3115. %     OMIT:  one bond omitted (a, b, c, d, e, or f)
  3116. %
  3117. %       e.g. 
  3118. %        
  3119. %        \fiveunitvi{1==N}{1==H;2==F}{a}
  3120. %
  3121. \def\fiveunitvi{\@ifnextchar[{\@fiveunitvi}{\@fiveunitvi[r]}}
  3122. \def\@fiveunitvi[#1]#2#3#4{%
  3123. \iniatom\iniflag%initialize
  3124. %\def\aaa{}\def\bbb{}\def\ccc{}\def\ddd{}\def\eee{}\def\fff{}%
  3125. \@forsemicol\member:=#2\do{%
  3126. \expandafter\@m@mb@r\member;\relax%
  3127. \expandafter\twoch@r\@membera{}%
  3128. \ifcase\@tmpa%
  3129.  \or \xdef\aaa{\@memberb}%
  3130.  \or \xdef\bbb{\@memberb}%
  3131.  \or \xdef\ccc{\@memberb}%
  3132.  \or \xdef\eee{\@memberb}%
  3133.  \or \xdef\fff{\@memberb}%
  3134. \fi}%
  3135.  \begin{picture}(800,880)(-\shiftii,-\shifti)%
  3136.   \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  3137.            \put(-\noshift,-\noshift){\circle{50}}% 
  3138.    \typeout{command `fiveunitvi' origin: %
  3139.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  3140. %%%%%%%%%%%%%%%%%%
  3141. % outer skeleton %
  3142. %%%%%%%%%%%%%%%%%%
  3143. % changed OMIT to a list 1993/11/21 by Shinsaku Fujita
  3144. {\resetbdsw%
  3145. \@tfor\memBer:=#4\do{%
  3146. \if\memBer a\relax\gdef\@aaa{}\fi%
  3147. \if\memBer b\relax\gdef\@bbb{}\fi%
  3148. \if\memBer c\relax\gdef\@ccc{}\fi%
  3149. \if\memBer d\relax\gdef\@ddd{}\fi%
  3150. \if\memBer e\relax\gdef\@eee{}\fi%
  3151. %\if\memBer f\relax\gdef\@fff{}\fi%
  3152. }%
  3153. \if\@aaa a\relax\skbonda\fi% bond between 1 and 2
  3154. \if\@bbb b\relax\skbondb\fi% bond between 2 and 3
  3155. \if\@ccc c\relax\skbondhorizi\fi% bond between 3 and 4
  3156. \if\@ddd d\relax\skbonde\fi% bond between 4 and 5
  3157. \if\@eee e\relax\skbondf\fi% bond between 5 and 6
  3158. %\if\@fff f\relax\skbondf\fi% bond between 6 and 1
  3159. }%
  3160. % old
  3161. %\ifx#4a\relax\else%
  3162. % \skbonda%bond between 1 and 2
  3163. %\fi%
  3164. %\ifx#4e\relax\else%
  3165. % \skbondf%bond between 1 and 5
  3166. %\fi%
  3167. %\ifx#4b\relax\else%
  3168. %  \skbondb%bond between 2 to 3
  3169. %\fi%
  3170. %\ifx#4d\relax\else%
  3171. % \skbonde%bond between 5 and 4
  3172. %\fi%
  3173. %\ifx#4c\relax\else%
  3174. % \skbondhorizi%bond between 4 and 3
  3175. %\fi%
  3176. %%%%%%%%%%%%%%%%%%%%%
  3177. % inner double bond %
  3178. %%%%%%%%%%%%%%%%%%%%%
  3179. \@tfor\member:=#1\do{%
  3180. \if\member r%
  3181. \else\if\member a\relax%
  3182.  \ifx#4a\relax\else%
  3183.    \bonda%
  3184.  \fi%
  3185. \else\if\member b\relax%
  3186.  \ifx#4b\relax\else%
  3187.   \bondb%
  3188.  \fi%
  3189. \else\if\member c\relax%
  3190.  \ifx#4c\relax\else%
  3191.    \bondhorizi%
  3192.  \fi%
  3193. \else\if\member d\relax%
  3194.  \ifx#4d\relax\else%
  3195.   \bonde%
  3196.  \fi%
  3197. \else\if\member e\relax%
  3198.  \ifx#4e\relax\else%
  3199.   \bondf%
  3200.  \fi%
  3201. \else \expandafter\twoch@@r\member{}{}%     %plus or minus charges
  3202.       \if\@@tmpa 1\relax%
  3203.         \putratom{-38}{282}{\@@tmpb}%      % right type
  3204.       \else\if\@@tmpa 2\relax%
  3205.         \putratom{60}{233}{\@@tmpb}%        % right type
  3206.       \else\if\@@tmpa 3\relax%
  3207.         \putratom{60}{120}{\@@tmpb}%        % right type
  3208.       \else\if\@@tmpa 4\relax%
  3209.         \putratom{-60}{120}{\@@tmpb}%       % right type
  3210.       \else\if\@@tmpa 5\relax%
  3211.         \putratom{-60}{233}{\@@tmpb}%       % right type
  3212.       \fi\fi\fi\fi\fi%
  3213. \fi\fi\fi\fi\fi\fi}%
  3214. %%%%%%%%%%%%%%%%%%%%%%%
  3215. % setting heteroatoms %
  3216. %%%%%%%%%%%%%%%%%%%%%%%
  3217. \ifx\aaa\empty\else%
  3218.      \@acliptrue%
  3219.      \putratom{-31}{356}{\aaa}%  % right type  at 1
  3220. \fi%
  3221. \ifx\bbb\empty\else%
  3222.      \@bcliptrue%
  3223.      \putratom{135}{280}{\bbb}%  % right type at 3
  3224. \fi%
  3225. \ifx\fff\empty\else%
  3226.      \@fcliptrue%
  3227.      \putlatom{-135}{280}{\fff}% % left type at 4
  3228. \fi%
  3229. \ifx\ccc\empty\else%
  3230.      \@ccliptrue%
  3231.      \putratom{135}{65}{\ccc}%   % right type at 2
  3232. \fi%
  3233. \ifx\eee\empty\else%
  3234.      \@ecliptrue%
  3235.      \putlatom{-135}{65}{\eee}%  % left type at 5 
  3236. \fi%
  3237. %%%%%%%%%%%%%%%%%%%%%%%%
  3238. % setting substituents %
  3239. %%%%%%%%%%%%%%%%%%%%%%%%
  3240. \setsixringv{#3}{0}{0}{4}{0}%  % for 1 to 3
  3241. \setsixringv{#3}{1}{4}{7}{0}%  % for 4 to 5
  3242. \end{picture}\iniatom\iniflag}%               %end of \fiveunitvi macro
  3243. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3244. %%%%%%%%%%%%%%%%%%%
  3245. % horizontal bond %
  3246. %%%%%%%%%%%%%%%%%%%
  3247. % horizontal inner bond for four-membered rings
  3248. \def\bondshoriz{%
  3249.  \begin{picture}(200,300)(0,0)
  3250.   \ifx\fff\empty%
  3251.     \ifx\bbb\empty%
  3252.      \put(-138,270){\line(1,0){134}}%double bond 4-3
  3253.     \else%
  3254.      \put(-138,270){\line(1,0){115}}%double bond 4-3
  3255.     \fi%
  3256.   \else%
  3257.     \ifx\bbb\empty%
  3258.      \put(-120,270){\line(1,0){115}}%double bond 4-3
  3259.     \else%
  3260.      \put(-120,270){\line(1,0){96}}%double bond 4-3
  3261.     \fi%
  3262.   \fi\end{picture}}%
  3263. % horizontal inner bond for four-membered rings (inverse type) 
  3264. \def\bondshorizi{%
  3265.  \begin{picture}(200,300)(0,0)
  3266.   \ifx\eee\empty%
  3267.     \ifx\ccc\empty%
  3268.      \put(-138,136){\line(1,0){134}}%double bond 4-3
  3269.     \else%%
  3270.      \put(-138,136){\line(1,0){115}}%double bond 4-3
  3271.     \fi%
  3272.   \else%
  3273.     \ifx\ccc\empty%
  3274.      \put(-120,136){\line(1,0){115}}%double bond 4-3
  3275.     \else%
  3276.      \put(-120,136){\line(1,0){96}}%double bond 4-3
  3277.     \fi%
  3278.   \fi\end{picture}}%
  3279. %%%
  3280. %horizontal bond for four-membered rings
  3281. \def\skbondshoriz{%
  3282.  \begin{picture}(200,300)(0,0)
  3283.   \ifx\fff\empty%
  3284.     \ifx\bbb\empty%
  3285.      \put(-171,303){\line(1,0){200}}%bond 4-3
  3286.     \else%
  3287.      \put(-171,303){\line(1,0){158}}%bond 4-3
  3288.     \fi%
  3289.   \else%
  3290.     \ifx\bbb\empty%
  3291.      \put(29,303){\line(-1,0){158}}%bond 4-3
  3292.     \else%
  3293.      \put(-129,303){\line(1,0){116}}%bond 4-3
  3294.     \fi%
  3295.   \fi\end{picture}}%
  3296. %horizontal bond for five-membered rings (inverse type)
  3297. \def\skbondshorizi{%
  3298.  \begin{picture}(200,300)(0,0)
  3299.   \ifx\eee\empty%
  3300.     \ifx\ccc\empty%
  3301.      \put(-171,103){\line(1,0){200}}%bond 4-3
  3302.     \else%
  3303.      \put(-171,103){\line(1,0){158}}%bond 4-3
  3304.     \fi%
  3305.   \else%
  3306.     \ifx\ccc\empty%
  3307.      \put(29,103){\line(-1,0){158}}%bond 4-3
  3308.     \else%
  3309.      \put(-129,103){\line(1,0){116}}%bond 4-3
  3310.     \fi%
  3311.   \fi\end{picture}}%
  3312. % **************************
  3313. % * fourhetero derivatives *
  3314. % *  (vertical type)       *
  3315. % **************************
  3316. % The following numbering is adopted in this macro. 
  3317. %
  3318. %          c
  3319. %     4  _____  3
  3320. %    d  |     |  b
  3321. %       |     |
  3322. %     1  -----  2<===== the original point
  3323. %          a
  3324. %
  3325. %   \fourhetero[BONDLIST]{ATOMLIST}{SUBSLIST}
  3326. %  
  3327. %     BONDLIST: list of inner double bonds 
  3328. %
  3329. %           a          :  1,2-double bond
  3330. %           b          :  2,3-double bond
  3331. %           c          :  4,3-double bond
  3332. %           e          :  4,1-double bond
  3333. %
  3334. %           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
  3335. %
  3336. %     ATOMLIST: list of heteroatoms (max 5 atoms)
  3337. %
  3338. %       for n = 1 to 4
  3339. %
  3340. %           n          : Hetero atom, e.g. N, O, etc. at n-position
  3341. %                        e.g. 1==N for N at 1-position
  3342. %
  3343. %     SUBSLIST: list of substituents (max 5 substitution positions)
  3344. %
  3345. %       for n = 1 to 4 
  3346. %
  3347. %           nD         :  exocyclic double bond at n-atom
  3348. %           n or nS    :  exocyclic single bond at n-atom
  3349. %           nA         :  alpha single bond at n-atom
  3350. %           nB         :  beta single bond at n-atom
  3351. %           nSA        :  alpha single bond at n-atom (boldface)
  3352. %           nSB        :  beta single bond at n-atom (dotted line)
  3353. %           nSa        :  alpha (not specified) single bond at n-atom
  3354. %           nSb        :  beta (not specified) single bond at n-atom
  3355. %
  3356. %       e.g. 
  3357. %        
  3358. %        \fourhetero{1==N}{1==H;2==F}
  3359. %        \fourhetero[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  3360. %        \fourhetero[eb]{1==N}{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
  3361. %
  3362. \def\fourhetero{\@ifnextchar[{\@fourhetero}{\@fourhetero[r]}}
  3363. \def\@fourhetero[#1]#2#3{%
  3364. \iniatom\iniflag%initialize
  3365. \@forsemicol\member:=#2\do{%
  3366. \expandafter\@m@mb@r\member;\relax%
  3367. \expandafter\twoch@r\@membera{}%
  3368. \ifcase\@tmpa%
  3369.  \or \xdef\eee{\@memberb}%
  3370.  \or \xdef\ccc{\@memberb}%
  3371.  \or \xdef\bbb{\@memberb}%
  3372.  \or \xdef\fff{\@memberb}%
  3373. \fi}%
  3374. %
  3375. %\begin{picture}(800,880)(-\shiftii,-\shifti)%
  3376. %  \iforigpt\put(-\shiftii,-\shifti){\circle*{50}}%
  3377. %           \put(-\noshift,-\noshift){\circle{50}}% 
  3378. %   \typeout{command `fourhetero' origin: %
  3379. %    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  3380. % Correction of the zero point: S. Fujita 1993/11/19
  3381. %   x axis: 400 + 171 = 571
  3382. %   y axis: 240 - 103 = 137
  3383. %
  3384. \begin{picture}(800,880)(-571,-137)%
  3385.   \iforigpt\put(-571,-137){\circle*{50}}%
  3386.            \put(-171,103){\circle{50}}% 
  3387.    \typeout{command `fourhetero' origin: %
  3388.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  3389. %%%%%%%%%%%%%%%%%%
  3390. % outer skeleton %
  3391. %%%%%%%%%%%%%%%%%%
  3392. %\skbondc%bond between 1 and 2
  3393. %\skbondd%bond between 1 and 5
  3394. \put(-142,0){\skbondb}%bond between 2 to 3
  3395. \put(0,0){\skbonde}%bond between 1 and 4
  3396. \put(0,0){\skbondshoriz}%bond between 4 and 3
  3397. \put(0,0){\skbondshorizi}%bond between 1 and 2
  3398. %%%%%%%%%%%%%%%%%%%%%
  3399. % inner double bond %
  3400. %%%%%%%%%%%%%%%%%%%%%
  3401. \@tfor\member:=#1\do{%
  3402. \if\member r%
  3403. \else\if\member a\relax \put(0,0){\bondshorizi}%
  3404. \else\if\member b\relax \put(-142,0){\bondb}%
  3405. \else\if\member c\relax \put(0,0){\bondshoriz}%
  3406. \else\if\member d\relax \put(0,0){\bonde}%
  3407. \else \expandafter\twoch@@r\member{}{}%     %plus or minus charges
  3408.       \if\@@tmpa 1\relax%
  3409.         \putlatom{-200}{120}{\scriptsize \@@tmpb}%       % right type
  3410.       \else\if\@@tmpa 2\relax%
  3411.         \putratom{60}{120}{\scriptsize \@@tmpb}%        % right type
  3412.       \else\if\@@tmpa 3\relax%
  3413.         \putratom{60}{233}{\scriptsize \@@tmpb}%        % right type
  3414.       \else\if\@@tmpa 4\relax%
  3415.         \putlatom{-200}{233}{\scriptsize \@@tmpb}%       % right type
  3416.       \fi\fi\fi%
  3417. \fi\fi\fi\fi\fi\fi}%
  3418. %%%%%%%%%%%%%%%%%%%%%%%
  3419. % setting heteroatoms %
  3420. %%%%%%%%%%%%%%%%%%%%%%%
  3421. \ifx\bbb\empty\else%
  3422.      \@bcliptrue%
  3423.      \putratom{-7}{280}{\bbb}%  % right type at 3
  3424. \fi%
  3425. \ifx\fff\empty\else%
  3426.      \@fcliptrue%
  3427.      \putlatom{-135}{280}{\fff}% % left type at 4
  3428. \fi%
  3429. \ifx\ccc\empty\else%
  3430.      \@ccliptrue%
  3431.      \putratom{-7}{65}{\ccc}%   % right type at 2
  3432. \fi%
  3433. \ifx\eee\empty\else%
  3434.      \@ecliptrue%
  3435.      \putlatom{-135}{65}{\eee}%  % left type at 5 
  3436. \fi%
  3437. %%%%%%%%%%%%%%%%%%%%%%%%
  3438. % setting substituents %
  3439. %%%%%%%%%%%%%%%%%%%%%%%%
  3440. \put(-142,0){\setsixringv{#3}{5}{1}{4}{-1}}% for 2 to 3
  3441. \put(0,0){\setsixringv{#3}{4}{4}{6}{0}}% for 1
  3442. \put(0,0){\setsixringv{#3}{2}{5}{7}{0}}% for 4
  3443. \end{picture}\iniatom\iniflag}%               %end of \fourhetero macro
  3444. %
  3445. % **********************
  3446. % * bonds for triangle *
  3447. % **********************
  3448. % fff 3--------2bbb
  3449. %      `     /
  3450. %   ddd  `1/ <===== the original point
  3451. % bond between 1 and 2
  3452.  \def\bondtria{%
  3453.   \ifx\ddd\empty%
  3454.    \ifx\bbb\empty%
  3455.     \put(-6,42){\line(3,5){72}}%           %double bond 1-2
  3456.    \else%
  3457.     \put(-6,42){\line(3,5){60}}%           %double bond 1-2
  3458.    \fi%
  3459.   \else%
  3460.    \ifx\bbb\empty%
  3461.     \put(6,62){\line(3,5){60}}%            %double bond 1-2
  3462.    \else%
  3463.     \put(10,32){\line(3,5){60}}%           %double bond 1-2
  3464.    \fi%                                    
  3465.   \fi%
  3466. }%
  3467. % bond between 1 and 3
  3468.  \def\bondtrib{%
  3469.   \ifx\ddd\empty%
  3470.    \ifx\fff\empty%
  3471.     \put(6,42){\line(-3,5){72}}%           %double bond 1-3
  3472.    \else%
  3473.     \put(6,42){\line(-3,5){60}}%           %double bond 1-3
  3474.    \fi%
  3475.   \else%
  3476.    \ifx\fff\empty%
  3477.     \put(-6,62){\line(-3,5){60}}%          %double bond 1-2
  3478.    \else%
  3479.     \put(6,42){\line(-3,5){60}}%           %double bond 1-2
  3480.    \fi%                                    
  3481.   \fi%
  3482.  }%
  3483. %bond between 1 and 2
  3484. \def\skbondtria{%
  3485.  \begin{picture}(200,200)(0,0)
  3486.   \ifx\ddd\empty%
  3487.     \ifx\bbb\empty%
  3488.      \put(0,0){\line(3,5){103}}%           %bond 1-2
  3489.     \else%
  3490.      \put(0,0){\line(3,5){80}}%            %bond 1-2
  3491.     \fi%
  3492.   \else%
  3493.     \ifx\bbb\empty%
  3494.      \put(103,171){\line(-3,-5){80}}%      %bond 1-2
  3495.     \else%
  3496.      \put(35,21){\line(3,5){60}}%          %bond 1-2
  3497.     \fi%
  3498.   \fi\end{picture}}%
  3499. %bond between 1 and 3
  3500. \def\skbondtrib{%
  3501.  \begin{picture}(200,200)(0,0)
  3502.   \ifx\ddd\empty%
  3503.     \ifx\fff\empty%
  3504.      \put(0,0){\line(-3,5){103}}%         %bond 1-3
  3505.     \else%
  3506.      \put(0,0){\line(-3,5){80}}%          %bond 1-3
  3507.     \fi%
  3508.   \else%
  3509. %    \ifx\eee\empty%bug fix 1993/11/19
  3510.     \ifx\fff\empty%
  3511.      \put(-103,171){\line(3,-5){80}}%     %bond 1-3
  3512.     \else%
  3513.      \put(-35,21){\line(-3,5){60}}%       %bond 1-3
  3514.     \fi%
  3515.   \fi\end{picture}}%
  3516. %
  3517. % ****************************
  3518. % * thereehetero derivatives *
  3519. % *  (vertical type)         *
  3520. % ****************************
  3521. % The following numbering is adopted in this macro. 
  3522. %
  3523. %         b
  3524. %     3--------2
  3525. %    c `     / a
  3526. %        `1/ <===== the original point
  3527. %
  3528. %
  3529. %   \threehetero[BONDLIST]{ATOMLIST}{SUBSLIST}
  3530. %  
  3531. %     BONDLIST = 
  3532. %
  3533. %           none       :  saturated 
  3534. %           a          :  1,2-double bond
  3535. %           b          :  2,3-double bond
  3536. %           c          :  3,1-double bond
  3537. %           A          :  aromatic circle 
  3538. %           {n+}       :  plus at the n-hetero atom (n = 1 to 3)
  3539. %                      :  n=4 -- outer plus at 1 position
  3540. %                      :  n=5 -- outer plus at 2 position
  3541. %                      :  n=6 -- outer plus at 3 position
  3542. %           {0+}       :  plus at the center of a cyclopropane ring
  3543. %
  3544. %     ATOMLIST: list of heteroatoms (max 3 atoms)
  3545. %
  3546. %       for n = 1 to 3
  3547. %
  3548. %           n          : Hetero atom, e.g. N, O, etc. at n-position, 
  3549. %                        e.g. 1==N for N at 1-position
  3550. %
  3551. %     SUBSLIST: list of substituents (max 3 substitution positions)
  3552. %
  3553. %       for n = 1 to 3 
  3554. %
  3555. %           nD         :  exocyclic double bond at n-atom
  3556. %           n or nS    :  exocyclic single bond at n-atom
  3557. %           nA         :  alpha single bond at n-atom
  3558. %           nB         :  beta single bond at n-atom
  3559. %           nSA        :  alpha single bond at n-atom (boldface)
  3560. %           nSB        :  beta single bond at n-atom (dotted line)
  3561. %           nSa        :  alpha (not specified) single bond at n-atom
  3562. %           nSb        :  beta (not specified) single bond at n-atom
  3563. %
  3564. %       e.g. 
  3565. %        
  3566. %        \threehetero{1==N}{1==Cl;2==F}
  3567. %        \threehetero[c]{1==N}{1==Cl;4==F;2==CH$_{3}$}
  3568. %        \threehetero{1==N}{1D==O;4SA==MeO;4SB==OMe;5==Cl;6==Cl}
  3569. %
  3570. \def\threehetero{\@ifnextchar[{\@threehetero}{\@threehetero[r]}}
  3571. \def\@threehetero[#1]#2#3{%
  3572. %%%%%%%%%%%%%%%%%%%%%%%%%%
  3573. % treatment of atom list %
  3574. %%%%%%%%%%%%%%%%%%%%%%%%%%
  3575. \iniatom\iniflag%initialize
  3576. \@forsemicol\member:=#2\do{%
  3577. \expandafter\@m@mb@r\member;\relax%
  3578. \expandafter\twoch@r\@membera{}%
  3579. \ifcase\@tmpa%
  3580.  \or \xdef\ddd{\@memberb}%
  3581.  \or \xdef\bbb{\@memberb}%
  3582.  \or \xdef\fff{\@memberb}%
  3583. \fi}%
  3584. %
  3585. %\begin{picture}(800,880)(-\shiftii,-\shifti)%
  3586. %  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
  3587. %           \put(-\noshift,-\noshift){\circle{50}}% 
  3588. %  adjust x,y-coodinate by S. Fujita 1993/11/20
  3589. \begin{picture}(800,880)(-468,-240)%
  3590.   \iforigpt \put(-468,-240){\circle*{50}}%
  3591.            \put(-68,0){\circle{50}}% 
  3592.    \typeout{command `threeheterov' origin: %
  3593.     (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
  3594. %%%%%%%%%%%%%%%%%%
  3595. % outer skeleton %
  3596. %%%%%%%%%%%%%%%%%%
  3597.  \put(-68,0){\skbondtria}% bond between 1 and 2
  3598.  \put(-68,0){\skbondtrib}% bond between 1 and 3
  3599.  \put(0,-132){\skbondshoriz}%bond between 2 and 3
  3600. %%%%%%%%%%%%%%%%%%%%%
  3601. % inner double bond %
  3602. %%%%%%%%%%%%%%%%%%%%%
  3603. \@tfor\member:=#1\do{%
  3604. \if\member r\relax%
  3605. \else\if\member a\relax\put(-68,0){\bondtria}%
  3606. \else\if\member b\relax\put(0,-126){\bondshoriz}%
  3607. \else\if\member c\relax\put(-68,0){\bondtrib}%
  3608. \else\if\member A\relax% aromatic circle 
  3609.   \put(-70,108){\circle{100}}%               %circle
  3610. \else \expandafter\twoch@@r\member{}{}%
  3611.       \if\@@tmpa 0\relax%
  3612.         \putratom{-94}{92}{\scriptsize\@@tmpb}%      % right type
  3613.       \else\if\@@tmpa 1\relax%
  3614.         \putratom{-94}{60}{\scriptsize\@@tmpb}%      % right type
  3615.       \else\if\@@tmpa 2\relax%
  3616.         \putratom{-52}{120}{\scriptsize\@@tmpb}%     % right type
  3617.       \else\if\@@tmpa 3\relax%
  3618.         \putratom{-126}{126}{\scriptsize\@@tmpb}%    % right type
  3619.       \else\if\@@tmpa 4\relax%
  3620.         \putratom{-30}{-20}{\scriptsize\@@tmpb}%      % right type
  3621.       \else\if\@@tmpa 5\relax%
  3622.         \putratom{52}{110}{\scriptsize\@@tmpb}%      % right type
  3623.       \else\if\@@tmpa 6\relax%
  3624.         \putratom{-250}{110}{\scriptsize\@@tmpb}%    % right type
  3625.       \fi\fi\fi\fi\fi\fi\fi%
  3626. \fi\fi\fi\fi\fi%\fi\fi\fi\fi%
  3627. }%
  3628. %%%%%%%%%%%%%%%%%%%%%%%%
  3629. % setting hetero atoms %
  3630. %%%%%%%%%%%%%%%%%%%%%%%%
  3631. \ifx\ddd\empty\else%
  3632.    \@cliptrue%
  3633.    \putratom{-99}{-22}{\ddd}% right type
  3634. \fi%
  3635. \ifx\bbb\empty\else%
  3636.      \@bcliptrue%
  3637.      \putratom{0}{148}{\bbb}% right type
  3638. \fi%
  3639. \ifx\fff\empty\else%
  3640.      \@fcliptrue%
  3641.      \putlatom{-135}{148}{\fff}% left type
  3642. \fi%
  3643. \put(-68,0){\setsixringv{#3}{3}{3}{5}{0}}%subst 1
  3644. \put(-142,-132){\setsixringv{#3}{0}{1}{3}{0}}%subst 2
  3645. \put(0,-132){\setsixringv{#3}{3}{5}{7}{0}}%subst 3
  3646. \end{picture}%
  3647. \iniatom\iniflag}%     %end of \threehetero macro
  3648.  
  3649.